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Chapter  1 
INTRODUCTION 

Production  of  a  Qualified  Military  Available  (QMA)  file  to  define 
potential  enlistees  for  military  service  is  a  lengthy  procedure.  The 
system,  developed  by  General  Research  Corporation  (GRC),  employs  data 
from  many  diverse  sources.  Its  modular  concept  allows  flexibility  and 
adaptability  as  new  or  improved  data  become  available.  All  of  this  has 
resulted  in  a  series  of  approximately  35  programs,  most  of  which  execute 
in  less  than  100K  central  memory  and  less  than  2  minutes  CPU.  Some 
programs  are  executed  many  times;  e.g.,  to  develop  growth  rates  for  1986, 
it  is  necessary  to  execute  the  program  for  annual  growth  rates  16  times. 
The  system  runs  on  the  IBM  370/155  computer. 

Volume  I  of  this  report  contains  an  overview  and  the  detailed 
methodology  for  the  QMA  Projection  System. 

IDIOSYNCRASIES  IN  DATA  DESIGNATION 

Many  improvements  have  been  made  in  the  QMA  system,  resulting  in 
strange  "carry-overs"  which  appear  in  the  flowcharts  or  listed  JCL.  An 
attempt  will  be  made  to  list  these. 

SBTA  -  Use  file  with  DSN-COUNTY. INFO. FILE,  the  first  120  characters 
of  which  are  identical  to  the  SBTA;  the  next  20  characters 
contain  the  county  name.  The  record  and  block  size  may  have 
to  be  changed  in  the  JCL,  as  well  as  record  length  in  programs. 

FNM7 5. MASTER  -  Use  file  with  DSN-UGA . DATA .  The  files  are  identical. 
The  new  DSN  was  used  to  better  describe  the  data  itself. 

MFWBO  -  The  narrative  text  in  Volume  I  uses  this  acronym  to  define 
the  multi-purpose  county  information  file.  MFWBO  is  a  com¬ 
bination  of  the  COUNTY. INFO. FILE  and  data  extracted  from 
UGA.DATA.  The  DSN  for  MFWBO  is  COMPUT.CTY. POP. MFWBO. YR70.TRY1 
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FLOWCHARTING 


The  following  conventions  for  flowcharting  were  followed: 


Input  files  designated  with  this  connector  (DO  on  top)  are  basic 
data  files  that  were  delivered  to  MARDAC  on  magnetic  tape.  The 
numeric  in  the  bottom  part  is  an  identifier. 


Input  files  designated  with  this  connector  (D1  on  top)  are  data 
files  which  were  extracted  from  original  data  by  GRC.  These 
extractions  are  the  most  elementary  form  of  this  type  of  data 
delivered  on  magnetic  tape  to  MARDAC.  Programs  to  produce  the 
extractions  from  original  data  are  included  in  this  system  de¬ 
livered  to  MARDAC.  The  numeric  in  the  bottom  part  is  an  identifier. 


Input/output  files  designated  with  a  connector  containing  a  numeric 
in  its  upper  part  are  files  created  during  the  QMA  development 
procedure.  The  numeric  in  the  top  refers  to  the  chapter  in  Volume  I 
of  the  document  in  which  the  phase  creating  this  file  is  discussed. 
The  numeric  in  the  bottom  is  an  identifier. 


This  sort  of  identifier  designates  programs  in  the  QMA  system  de¬ 
livered  on  magnetic  tape  to  MARDAC.  The  letter  "p"  is  a  program 
identifier;  the  numeric  immediately  following  "p"  refers  to  the 
chapter  in  Volume  I  where  this  particular  phase  of  development  is 
discussed.  The  numeric  following  the  dash  is  an  identifier.  An 
attempt  has  been  made  to  follow  a  sequential  order,  i.e.,  no 
program  will  have  an  identifier  larger  than  that  of  any  program 
it  must  precede. 
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Chapter  2 

PROGRAM  DOCUMENTATION 


2 


OJNW 


RES. STATE. CTT 


FILE  DOCUMENTATION 


PROGRAM:  P2-1  CTY . CTYGRP .EDIT 

FILE:  FTLOFOOl 

10  TYPE:  INPUT 

FILE  TYPE:  EBCDIC 

DSN:  RES. CTY. CTYGRP 


LRECL :  80 

BLKSIZE:  7200 

RECFM:  FB 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-70 

5(3X,I5,1X,I5) 

COUNTY-COUNTY  GROUP 

e.g. 

1-3 

MAPPINGS  (MAXIMUM  OF 
‘  5  PER  CARD) 

FILLER 

4-8 

COUNTY  CODE 

9 

FILLER 

10-14 

COUNTY  GROUP  CODE 

I’ror.r.in  n. 


I  Pr 


■r.iei  i;>: 


Purpose :  Ih  i ::  |iri')‘,l  .Mri  I'l-in-rilr:  l  i.i.ipninr,  u!  nuinl  v  ;•  t  •  >i  i  p  .  oiil.i  pips.  Tile 
| .  r  f  • : ;  r . ;  m  pi  mine.  .1  tape  mil  i  pi  i  it  I  d  ihi  m.  1  p  i  ■  i  1 1 .  ■ .  I  >  ■  r  .  .n  h  |)i;c. 

ail  Chi'  .iMSui  i  .il  <tl  count  V  >  •  r  <  •  1 1  p : ;  ami  [  he  pi  upm  l  inn  ol  cueli  rminl  y 
I’ltuip  Ll.it.  lira  within  I  hi'  DIP'  arc  i  nc  I  mini . 


Author :  Alison  Crews 


t- 


Comnucer /OS : 


L 


IBM  37 0/HASP 


Lancuage: 


FORTRAN  G 


Estimated  Reouireraents : 


Core:  150K 
CPU  Time:  1  MIN 
Print  Lines:  1500 


Tape  Drives:  1 
Disk  Drives:  1 

Subroutine  name/entrv/entrv . 


Internal  (SOURCE/OBJECT) 

D I SKIT (S)  UPAG(S)  RESET (S ) 
REDO (S )  RDDRC(S)  ZROFIL(S) 
INITCP/CPOP/PRl’CNT (O'! RDCCG  (S ) 
INITCG/CTOCG/PRTCCP (0) 


External 
ASTSI  LISTI 


FREAD 

ffVECR 


BNSCHI 

SORTlX 


Input  Files: 
FT09F001 
FT11F001 
FT10F001 


COUNTY. INFO. FILE- 
RES.  CTY.CTYGRP 


1/ 


CARD  INFUT 


ARMY  DIRECTORY- 


27 


Outout  Files: 


FT20F001 

FT21F001 

FT22F001 

SYSOUT 

COMMENTS: 


RES  .  GKP .  DRCMAP 
ERROR  FILE  FOR  INITCP 
ERROR  FILE  FOR  IN1TCG 
THIS  FILE  CONTAINS  THE  MAPPING  INFORMATION  FOR  EACH  DRC 

1/  The  present  JCL  calls  for  the  SI3TA  file  -  use  the  COUNTY.  INFO. 
FILE  instead.  This  file  contains  the  SBTA  data  as  the  first 
120  characters.  . 

2/  This  is  RES. ARMY. CTY 

The  DRC  code  is  2  characters.  To  use  this  program  for  other 
services,  this  field  and  all  associated  input  and  output  must 
be  expanded  to  a  field  of  3  characters.  I 
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FILE  DOCUMENTATION 


I 

' 

I 

1 


PROGRAM:  P2-6 

PMAP 

FILE:  FT09F001 

LRECL : 

140 

10  TYPE:  INPUT 

BLKSIZE: 

7000 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBREVIATION 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

FILLER 

123-140 

18A1 

COUNTY  NAME 

FILE  DOCUMENTATION 


PROGRAM:  P2-6  PMAP 

FILE:  FTlOFOOl  LRECL :  80 


10  TYPE:  INPUT 

BLKSIZE: 

80 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN: 

Column 

Format (EBCDIC) 

Data  Type(Binary) 

Data  Description 

FIRST  RECORD  FOR  DRC 

1-2 

12 

DRC  SEQUENCE  NO. 

3-5 

A3 

DRC  CODE 

6-7 

A2 

REGION  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DRC  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  DRC 

1-2 

12 

DRC  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

FILE  DOCUMENTATION 


PROGRAM:  P2-6  PMAP 

FILE:  FT1 l FOOl 

LRECL : 

80 

10  TYPE:  INPUT 

BLKSIZE: 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES . CTY . CTYGRP 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1-70 

5(3X, 15, IX, 15) 

COUNTY-COUNTY  GROUP  MAPPINGS 
(MAXIMUM  OF  5  PER  CARD) 

e.g. 

1-3 

FILLER 

4-8 

COUNTY  CODE 

9 

FILLER 

10-14 

COUNTY  GROUP  CODE 

FILE  DOCUMENTATION 


PROGRAM:  P2-6  PMAP 

FILE:  FT20F001 

LRECL: 

80 

10  TYPE:  OUTPUT 

BLKSIZE : 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES.GRP.DRCMAP 

Format  (EBCDIC) 


Column 

Data  Type (Binary) 

Data  Description 

1-2 

12 

DRC  SEQUENCE  NO. 

3 

IX 

FILLER 

4-5 

A2 

DRC  CODE 

6-8 

3X 

FILLER 

9-20 

3A4 

DRC  NAME 

21-22 

2X 

FILLER 

23-27 

15 

COUNTY  GROUP  CODE 

28 

IX 

FILLER 

29-35 

F7.5  ' 

PROPORTION  OF  CTY  GRP  IN  DRC 

36-37 

2X 

FILLER 

38-42 

15 

CTY  GROUP  CODE 

43 

IX 

FILLER 

44-50 

F7.5 

PROPORTION  OF  CTY  GRP  IN  DRC 

51-52 

2X 

FILLER 

53-57 

15 

CTY  GROUP  CODE 

58 

IX 

FILLER 

59-65 

F7.5 

PROPORTION  OF  CTY  GRP  IN  DRC 

66-67 

2X 

FILLER 

68-72 

15 

CTY  GROUP  CODE 

73 

IX 

FILLER 

74-80 

F7.5 

PROPORTION  OF  CTY  GRP  IN  DRC 

I 

[ 


( 


Frograa  naaa:  STATE. PUS. EXTRACT 


Prograa  10:  p;.> 


Purpoae:  Thta  prograa  extract  a  population  data  by  atata,  aea,  race  and  age 
(roa  atate  PUS  aaaplea.  It  also  prlnta  a  report  ot  theae 
population  counta.  Data  (roa  the  St  and  Che  1SZ  aaaplea  ara 
extracted  In  separate  coaputer  runs. 


Cora:  100  K  Tape  Drives:  2 


CPU  Tlae:  U  aln  Disk  Drives:  1 

Print  Lines:  2500 

Subroutine  naae/entry/encry. . . 

Internal  (SOURCE/OBJECT)  External 

PREAD  I ACE  ISEX 

LEAVE  I RACE  ISTATE 

FVRITE  I  HTTP 


Input  riles: 

morooi 

morooi 


STATE.PUS. EXTRACT  PILE  (15Z) 
STATE. PUS1970  (5Z) 


Output  Piles: 


PT20P001 

PT20P001 


STATE. rUS. COUNTS. PHCHTU  (UZ) 
STATE. PUS. COUNTS  (SZ) 


Co— nts:  This  progrsa  Is  used  (or  calculating  atata  data  (or 
both  the  1SZ  and  SZ  aaaplea. 
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FILE  DOCUMENTATION 


f 


] 

i 

i 

r 

i 


PROGRAM: 

FILE: 

10  TYPE: 

FILE  TYPE:  BINARY 


P2-7  STATE. PUS. EXTRACT 

FT 10F001 

INPUT 


LRECL:  120 

BLKSIZE:  27000 
RECFM:  FB 


DSN:  PUS 70 101.... PUS 70120  (15%  Sample) 
STATE. PUS1970  (5%  Sample) 

Format  (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


RECORD  TYPE  1:  HOUSING  RECORD 

1  -  6  INTEGER 
7-8  INTEGER 
9-120  INTEGER 


FILLER 

FIPS  STATE  CODE 
FILLER 


RECORD  TYPE  3:  PERSON  RECORD 


1  -  5 


6 

7 

8 


9-11 


12 


13  -  120 


INTEGER 

* 


INTEGER 


FILLER 

SEX  (0*MALE, 1=FEMALE) 

RACE  (0= WHITE , 1= BLACK, 2- 9- OTHER) 

FILLER 

AGE 

QUARTER  OF  BIRTH 
(0  -  FIRST  QUARTER 

1  *  SECOND  QUARTER 

2  -  THIRD  QUARTER 

3  *  FOURTH  QUARTER) 

FILLER 


FILE  DOCUMENTATION 


PROGRAM: 

P2-7  STATE. PUS . EXTRACT 

FILE: 

FT20F00 1 

LRECL: 

112 

10  TYPE: 

OUTPUT 

BLK.SIZE: 

4480 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN:  STATE. PUS. COUNTS. PRCNT 15  (15%  sample) 


Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1  -  4 
5-8 
9-12 
13  -  16 
17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 
45  -  48 
49  -  52 
53  -  56 
57  -  60 
61  -  64 
65  -  68 
69  -  72 
73  -  76 
77  -  80 
81  -  84 
85  -  88 
89  -  92 
93  -  96 
97  -  100 
101  -  104 
105  -  108 
109  -  112 


INTEGER 


I 

i 

I 


? 


FIPS  STATE  CODE 

SEX  CODE  (1=MALE, 2= FEMALE) 

RACE  CODE  (l=WHITE,2=BLACK,3=OTHER) 
POPULATION  COUNT  FOR  LT  1  YR  OLD 
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FILE  DOCUMENTATION 


PROGSAM:  P2-7  STATE. PUS. EXTRACT 


FILE:  FT20F00 1 

LRECL: 

112 

10  TYPE:  OUTPUT 

BLKSIZE: 

4480 

FILE  TYPE:  BINARY 

RECFM: 

FB 

DSN:  STATE. PUS. COUNTS 

( 5 %  sample) 

Program  name 


CREATE. PUS. STATE 


Program  ID: 


Purpose: 


1 


This  program  marges  the  SZ  and  1SZ  settle  PUS  data  for  each 
•Cat#  by  age.  sex  and  race. 


1 _ _ 

Author:  Alison  Crewe 

Computer/OS:  IBM  360-370/Haso 

Language:  tort ran  c 

Estimated  Requirements: 

Core:  100  E  Tape  Drives:  3 
CPU  Time:  10  eec  Disk  Drives:  l 
Print  Lines:  1200 


Subroutine  aame/entry/entry. . . 

Internal  (SOURCE/OBJECT)  External 

FUAD 

LEAVE 

WRITE 

Input  files: 

PT10P001  STATE. PUS. COUNTS  (SZ) 

VTllPOOi  STATE. PUS. COUNTS. PRCXT  1S.SORTD  (1SZ) 


Output  Piles: 

FT  20 TOO 1  ENRICH.  STATE.  PUS.  YR70\ 


FILE  DOCUMENTATION 


PROGRAM: 

P2-8  CREATE. PUS. STATE 

FILE: 

FT11F001 

LRECL : 

112 

10  TYPE: 

INPUT 

BLKSIZE: 

4480 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN:  STATE. PUS . COUNTS . PRCNT15. SORTD 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


Data  Description 


1  - 

4 

INTEGER 

FIPS  STATE 

CODE 

5  - 

8 

j 

SEX  CODE( 1= 

MALE , 2=FEMALE) 

9  - 

12 

RACE  CODE(l 

“WHITE , 2=BLACK, 3=OTHER) 

13  - 

16 

POPULATION 

COUNT  FOR  LT  1 

YR  OLD 

17  - 

20 

A  FOR  1 

YR  OLD 

21  - 

24 

2 

25  - 

28 

3 

A 

29  - 

32 

4 

33  - 

36 

5 

37  - 

40 

6 

41  - 

44 

7 

45  - 

48 

8 

49  - 

52 

1 

9 

53  - 

56 

10 

57  - 

60 

11 

61  - 

64 

12 

65  - 

68 

1 

13 

69  - 

72 

! 

14 

73  - 

76 

15 

77  - 

80 

16 

81  - 

84 

17 

85  - 

88 

18 

89  - 

92 

19 

93  - 

96 

20 

97  - 

100 

21 

101  - 

104 

22 

105  - 

108 

* 

23 

109  - 

112 

*  24 

i 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-8  CREATE. PUS. STATE 

FILE: 

FT10F001 

LRECL: 

112 

10  TYPE: 

INPUT 

BLKSIZE: 

4A80 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN:  STATE. PUS. COUNTS 


Format (EBCDIC) 

Column  Data  Type(Binary)  Data  Description 


1  -  A  INTEGER  FIPS  STATE  CODE 


l  "  8 

SEX  CODE(l- 

MALE, 2-FEMALE) 

9-12  ' 

RACE  com:  ( 1 

-WHITE , 2-BLACK, 3-OTHER) 

13  -  16 

POPULATION 

COUNT  FOR  LT  1  YR  OLD 

17  -  20 

l  FOR  1  YR  OLD 

21  -  24 

2 

25  -  28 

3  k 

29  -  32 

4 

33  -  36 

5 

37  -  40 

6 

41  -  44 

7 

45  -  48 

8 

49  -  52 

i 

9 

53  -  56 

10 

57  -  60 

11 

61  -  64 

12 

65  -  68 

13 

69  -  72 

14 

73  -  76 

15 

77  -  80 

16 

81  -  84 

17 

85  -  88 

18 

89  -  92 

19 

93  -  96 

20 

97  -  100 

21 

101  -  104 

• 

22 

105  -  108  - 

F 

23 

109  -  112 

f  i 

1  24  . 

FILE  DOCUMENTATION 


PROGRAM:  P2-8  CREATE. PUS .STATE 

FILE:  FT20FOO 1 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN:  ENRICH. STATE. PUS. YR70 


LRECL:  112 

BLKSIZE:  4480 
RECFM:  PR 


Column 


Format (EBCDIC) 

Data  Type (Binary)  Data  Description 


1  -  4 
5-8 
9-12 
13  -  16 
17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 
45  -  48 
49  -  52 
53  -  56 
57  -  60 
61  -  64 
65  -  68 
69  -  72 
73  -  76 
77  -  80 
81  -  84 
85  -  88 
89  -  92 
93  -  96 
97  -  100 
101  -  104 
105  -  108 
109  -  112 


INTEGER 

f 


I 

| 


▼ 


FIPS  STATE  CODE 

SEX  CODE (1-MALE, 2- FEMALE) 

RACE  C0DB( 1* WHITE , 2-BLACK, 3-OTHER) 
POPULATION  COUNT  FOR  LT  1  YR  OLD 

FOR  1  YR  OLD 
"  2  A 

3 

4 

5 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

T  24  f 
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COtNTt  CROUP  PUS 


Prograa  naae:  CTYCRP. PUS . EXTRACT 


Prograa  LD:  P2-9 


Purpose :  This  program  extracts  county  group  SI  and  ISI  aaaples  of  PUS 

data  and  aggregates  key  data  within  each  region.  Extraction  of 
each  aaaple  la  Jone  In  a  separate  coaputer  run. 


Computer/OS:  IBM  360-370/HASP 


Language :  FORTRAN  H 


Output  riles: 


PT20F001 
PT20POOI 
FT  1 6f 001 


CTTCRP.PUS 70.ACCREC3  (31) 
CTTGRP. PUS  70. ACCREC1 5  (152) 

INTERMEDIATE  RESULT  PRINT  PILE 


CONQXTSi  This  prograa  la  used  for  calculating  rational  data  for  both 
the  St  and  13*  aaaples. 

Prograa  deck  la  set  to  extract  f roa  31  (11a.  To  extract  fries 
13Z  file,  change  atatraent  73  to  coaaft  and  change  preceding 
covent  to  an  Instruction. 
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FILE  DOCUMENTATION 


PROGRAM:  P2-9 

CTYGRP. PUS. EXTRACT 

FILE:  FT10F001 

LRECL : 

146 

10  TYPE:  INPUT 

BLKSlZE : 

4380 

FILE  TYPE:  EBCDIC 

DSN:  PUS 70. EXT 501 
PUS70. EXT201 

_ PUS70. EXT530 

_ PUS70. EXT230 

Format (EBCDIC) 

RECFM: 

FB 

Column 

Data  Type (Binary) 

Data  Description 

1-6 

6A1 

FILLER 

7-11 

5A1 

COUNTY  GROUP  CODE  (REGION) 

12-73 

62A1 

FILLER 

74-75 

2A1 

INSTITUTIONALIZED  CODE 
(1-8  =  YES) 

76 

A1 

SEX  0=MALE 

1-FEMALE 

77 

A1 

RACE  0-WHITE 

1-NEGRO 

2-8-OTHER 

78 

A1 

FILLER 

79-81 

3A1 

AGE  0-UNDER  1  YR 

1-99=1-99 

100=100  OR  OVER 

82 

A1 

QUARTER  OF  BIRTH 

0-FIRST  QUARTER 

1- SECOND  QUARTER 

2- THIRD  QUARTER 

4-FOURTH  QUARTER 

83-86 

4A1 

FILLER 

87-88 

2A1 

HIGHEST  GRADE  COMPLETED 

89 

Al 

IN  SCHOOL  CODE  O-NOW  ATTENDING 

1- FINISHED  GRADE 

2- DID  NOT  FINISH 
.  3-NA 

90-100 

11A1 

FILLER 

101 

Al 

IN  MILITARY  CODE  (4-YES) 

102 

Al 

FILLER 

103 

Al 

VETERAN  CODE  (5%  SAMPLE  ONLY) 

0-YES  1-NO  2-NA 

104-119 

16A1 

FILLER 

120-122 

3A1 

INCOME  (999  or  998-0) 

123-134 

12A1 

FILLER 

135 

Al 

VETERAN  CODE  (15%  SAMPLE  ONLY) 

0-YES  1-NO  2-NA 

136-146 

11A1 

FILLER 
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FILE  DOCUMENTATION 


PROGRAM:  P2-9  CTYGRP.PUS. 

FILE:  FT20F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN:  CTYGRP . PUS  7  0 . AGGREG  5(5%) 


EXTRACT 

LRECL: 

BLKSIZE: 

RECFM: 


40 

7200 

FB 


Column 

1-2 

3-4 

5-6 


7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Forma  t (EB  CDI C ) 
Data  Type (Binary) 

INTEGER 


: 

I 


V 

INTEGER 

REAL 


Data  Description 
REGION  CODE 

SEX  CODE  1-MALE ,  2=FEMALE 

RACE  CODE  1-WHITE 

2- NEGRO 

3- OTHER 

AGE  CODE  (17-24  YRS) 

HIGHEST  GRADE  COMPLETED 

IN  SCHOOL  CODE 

INSTITUTIONALIZED  CODE 
0=N0  1-YES 

IN  MILITARY  CODE 

O-NO  1-YES 

VETERAN  CODE 

EMPLOYED/UNEMPLOYED  CODE 

SAMPLE  (5%  or  15%) 

FILLER 

INCOME  (//  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM:  P2-9  CTYGRP. PUS. EXTRACT 

FILE:  FT20F001 
10  TYPE:  OUTPUT 
FILE  TYPE:  BINARY 
DSN:  CTYGRP.PUS70.ACCREG15  (15%) 


LRECL: 

BLKSIZE: 

RECFM: 


Column 

1-2 

3-4 


Format (EBCDIC) 
Data  Type (Binary) 


INTEGER 

* 


40 

7200 

FB 


Data  Description 
REGION  CODE 
SEX  CODE 


1-MALE,  2= FEMALE 


5-6 

RACE  CODE  1-WHITE 

2- NEGRO 

3- OTHER 

7-8 

AGE  CODE  (17-24  YRS) 

9-10 

HIGHEST  GRADE  COMPLETED 

11-12 

IN  SCHOOL  CODE 

13-14 

• 

INSTITUTIONALIZED  CODE 
O-NO  1-YES 

15-16 

IN  MILITARY  CODE 

0=N0  1-YES 

17-18 

VETERAN  CODE 

19-20 

EMPLOYED/UNEKPLOYED  CODE 

21-22 

SAMPLE  (5%  or  15%) 

23-24 

FILLER 

25-28 

INCOME  (/?  WHO  HAD  INCOME) 

29-32 

N 

f 

INCOME  (AMOUNT  OF  INCOME) 

33-36 

INTEGER 

• 

COUNT 

37-40  ■ 

REAL 

WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-10 

CTYGRP.PUS 

.MERGE 

FILE: 

FT  10  FOO 1  (15%) 

LRECL:  *0 

10  TYPE: 

INPUT 

BLKSIZE:  ?200 

FILE  TYPE 

:  BINARY 

RECFM:  FB 

DSN:  CTYGRP.PUS 70 

.AGGREG15 

(15%) 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1  - 

2 

INTEGER 

REGION  CODE 

3  - 

4 

[ 

SEX  CODE 

5  - 

6 

RACE  CODE 

7  - 

8 

AGE  CODE 

9  - 

10 

HIGHEST  GRADE  COMPLETED 

11  - 

12 

! 

IN  SCHOOL  CODE 

13  - 

14 

INSTITUTIONALIZED  CODE 

15  - 

16 

IN  MILITARY  CODE 

17  - 

18 

I 

VETERAN  CODE 

19  - 

20 

| 

EMPLOYED/UNEMPLOYED  CODE 

21  - 

22 

SAMPLE  (5%  or  15%) 

23  - 

24 

FILLER 

25  - 

28 

INCOME  (//  who  had  income) 

29  - 

32 

f 

INCOME  (amount  of  income) 

33  - 

36 

INTEGER 

COUNT 

37  - 

40 

REAL 

WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM:  P2-10  CTYGRP .PUS. MERGE 

FILE:  FT  111’ 001  (  5%)  LRECL:  *0 

10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN:  CTYGRP.PUS70.AGGREG5  (  5%) 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1  -  2 
3-4 
5-6 
7-8 
9-10 
11  -  12 
13  -  14 
15  -  16 
17  -  18 
19  -  20 
21  -  22 
23  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 


INTEGER 


INTEGER 


REAL 


REGION  CODE 
SEX  CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  or  15%) 

FILLER 

INCOME  (//  who  had  income) 
INCOME  (amount  of  income) 
COUNT 
WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-10 

CTYGRP. PUS. MERGE 

FILE: 

FT20F00 1 

LRECL: 

40 

10  TYPE: 

OUTPUT 

BLKSIZE: 

7200 

FILE  TYPE 

:  BINARY 

RECFM: 

FB 

DSN: 

CTYGRP 

PUS 70. MERGE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1  - 

2 

INTEGER 

REGION  CODE 

1  - 

4 

A 

SEX  CODE 

5  - 

6 

RACE  CODE 

7  - 

8 

AGE  CODE 

9  - 

10 

HIGHEST  GRADE  COMPLETED 

11  - 

12 

IN  SCHOOL  CODE 

13  - 

14 

INSTITUTIONALIZED  CODE 

15  - 

16 

• 

IN  MILITARY  CODE 

17  - 

18 

VETERAN  CODE 

19  - 

20 

EMPLOYED/UNEMPLOYED  CODE 

21  - 

22 

SAMPLE  (5%  or  15%) 

23  - 

24 

FILLER 

25  - 

28 

INCOME  (//  who  had  income) 

29  - 

32 

INCOME  (amount  of  income) 

33  - 

36 

INTEGER 

COUNT 

37  - 

40 

REAL 

WEIGHT 
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Progrjo  rua«:  ACCR.0K-40.aUR.RECD 


Prograa  ID:  P2-I6 


FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P2-16 
FT 10F001 
INPUT 
BINARY 


AGGR . OF- AO . CHAR . RECD 

LRECL: 

BLKSIZE: 

RECFM: 


CTYGRP . POP . YR70 . TRY 1 


AO 

7200 

FB 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1  - 

2 

INTEGER 

REGION  CODE 

3  - 

A 

i 

SEX  CODE 

5  - 

6 

RACE  CODE 

7  - 

8 

AGE  CODE 

9  - 

10 

HIGHEST  GRADE  COMPLETED 

11  - 

12 

IN  SCHOOL  CODE 

13  - 

1A 

INSTITUTIONALIZED  CODE 

15  - 

16 

IN  MILITARY  CODE 

17  - 

18 

VETERAN  CODE 

19  - 

20 

EMPLOYED/UNEMPLOYED  CODE 

21  - 

22 

SAMPLE  (5%  or  15%) 

23  - 

2A 

FILLER 

25  - 

28 

INCOME  (//  who  had  income) 

29  - 

32 

1 

INCOME  (amount  of  income) 

33  - 

36 

INTEGER 

COUNT 

37  - 

AO 

REAL 

WEIGHT 
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FILE  DOCUMENTATION 


t 


PROGRAM:  P2-16  AGGR.0F-40.CHAR. RECD 


FILE:  FT20F001 

10  TYPE:  OUTPUT 
FILE  TYPE:  BINARY 
DSN:  CTYGRP. POP. YR70. COMP 


LRECL: 

BLKSIZE: 

RECFM: 


40 

7200 

FB 


Format (EBCDIC) 

Column  Data  Type(Binary)  Data  Description 


1  -  2 
3-4 
5-6 
7-8 
9-10 
11  -  12 
13  -  14 
15  -  16 
17  -  18 
19  -  20 
21  -  22 
23  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 


INTEGER 

k 


INTEGER 

REAL 


REGION  CODE 
SEX  .CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  or  15%) 

FILLER 

INCOME  (#  who  had  income) 
INCOME  (amount  of  income) 
COUNT 
WEIGHT 
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Program  nano. :  PIH.I..C.A 


Program  li): 


•  The  purpose  of  this  program  is  to  list  .mhI  punch  card;  i  onto  i  n  i  nr 
population  data  from  tin-  UCA  file-  for  Lin  total  and  17-24  yr.  olds 
l>v  county,  wliiLu  and  non-whit  o,  and  sex. 


Author:  Alison  Crews 


Computer/OS:  hjm  360-370/HASP 


Language:  FORTRAN  C 


Outout  Files: 

FT07F001  COUNTY  AND  STATE  POPULATION  FOR  TOTAL  AND  17-24  YR.  OLDS,  WHITE 
AND  NON-WHITES  SY  SEX  (PUNCHED  CARDS) 

FT21F00I  POPULATION  REPORT  FOR  TOTAL  AND  17-24  YR.  OLDS  BY  COUNTY,  WHITE 
AND  NON-WHITE,  AND  SEX. 


COMMENT:  FNM7 5 . MASTER  is  sane  file  as  L'GA. DATA 


FILE  DOCUMENTATION 


PROGRAM:  P2-11  PULL„GA 

FILE:  FT lOFOO 1  LRECL:  7604 

10  TYPE:  INPUT  BLKSIZE:  7604 

FILE  TYPE:  EBCDIC  RECFM:  FB 

DSN:  FNM75. MASTER 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1  -  1 


2-3 
4-6 
7-26 
27  -  36 
37  -  1889 
1890  -  1898 
1899  -  1907 
1908  -  1916 
1917  -  1925 
1926  -  1934 
1935  -  2213 
2214  -  2222 
2223  -  2231 
2232  -  2240 
2241  -  2249 
2250  -  2258 
2259  -  2294 
2295  -  2303 
2304  -  2312 
2313  -  2321 
2322  -  2330 
2331  -  2339 
2340  -  7604 


ALPHA 


ALPHA 


ALPHA 


UGA  LEVEL  NUMBER 
1  =  STATE  OR  COUNTY 
•2  =  DIVISION 

3  =  REGION 

4  =*  UNITED  STATES 
UGA  LEVEL  CODE 
UGA  COUNTY  NUMBER 
FILLER 

COUNTY  NAME 
FILLER 

TOTAL  POPULATION-WHITE-MALES 
TOTAL  POPULATION-WHITE-FEMALES 
FILLER 

TOTAL  POPULATION-NON-WHITE  MALES 
TOTAL  POPULATION-NON-WHITE  FEMALES 
FILLER 

POPULATION, 15-19  YRS-WHITE  MALES 
POPULATION, 15-19  YRS-WHITE  FEMALES 
FILLER 

POPULATION, 15-19  YRS-NON-WHITE  MALES 
POPULATION, 15-19  YRS-NON-WHITE  FEMALES 
FILLER 

POPULATION, 20-24  YRS-WHITE  MALES 
POPULATION, 20-24  YRS-WHITE  FEMALES 
FILLER 

POPULATION, 20-24  YRS-NON-WHITE  MALES 
POPULATION, 20-24  YRS-NON-WHITE  FEMALES 
FILLER 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-11  PULL.GA 

FILE: 

FT07F00 1 

LRECL: 

80 

10  TYPE: 

OUTPUT 

BLKSIZE: 

80 

FILE  TYPE: 

BCD 

RECFM: 

FB 

DSN: 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1  -  1 
2-3 
4-6 
7-16 
17  -  24 
25  -  32 
33  -  40 
41  -  48 
49  -  56 
57  -  64 
65  -  72 
73  -  80 


ALPHA 


ALPHA 


INTEGER 


UGA  LEVEL  NUMBER 
.  UGA  LEVEL  ID  NUMBER 
UGA  COUNTY  NUMBER 
COUNTY  NAME 

TOTAL  POPULATION-WHITE  MALES 
TOTAL  POPULATION-NON-WHITE  MALES 
TOTAL  POPULATION-WHITE  FEMALES 
TOTAL  POPULATION-NON-WHITE  FEMALES 
POPULATION,  AGES  17-24  WHITE  MALES 
POPULATION,  AGES  17-24  NON-WHITE  MALES 
POPULATION,  AGES  17-24  WHITE  FEMALES 
POPULATION,  AGES  17-24  NON-WHITE  FEMALES 


INTEGER 


!*r  M'lMiU  n.ime:  I  Nl\.  Si'.TA  ll().\ 


Put do so : 


l*r«u»iv.ni  L!):  r.'-ll! 


The  purpose  of  this  program  is  to  iBerp.o  lie, A  and  SliTA  (COUNTY. INFO) 
data.  I'l  10  match  is  attempted  through  tim  10  characters  of  the 
county  name. 


Author:  Alison  Crews 


Conouter/OS:  IBM  360- 2 70 /HASP 


Estimated  Reauirenents : 


CPU  Time:  2  MIN 


j  Language :  FORTRAN  0 


Tape  Drives:  2 
Disk  Drives:  0 


Print  Lines:  6250 


Subroutine  name/entry/entrv, . 


Internal  (SOURCE /OBJECT) 


External 


Input  Files: 

FT05F001  COUNTY  AND  STATE  POPULATION  FOR  TOTAL  AND  17-24 
YEAR  OLDS,  WHITE  AND  NON-WHITE,  BY  SEX  (PUNCHED 
CARDS) 

FT10F001  COUNTY. INFO. FILE 


Outnut  Files: 
FT06F00 1 


FT20F001 


LIST  MERCED  COUNTY  NAME  AND  COUNTY/STATF. 
POPULATION  REPORT 

EXTND. COUNTY. INFO. FILE 


H21F001  UNMATCHED  PAIRS  OF  COUNTY  NAMES  REPORT 

COMMENT:  SliTA  and  COUNTY.  INFO  FILES  ARE  IDENTICAL  CC 1-120.  COUNTY, 

INFO. FILE  HAS  COUNTY  NAME  APPENDED  CC12I-1VJ  and  HAS  BEEN 
REFERRED  TO  BY  OLDER  AND  SHORTER  FILE  DESIGNATION  (SETA). 
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FILE  DOCUMENTATION 


PROGRAM:  P2-12  COMBINE.SBTA.UGA 

FILE:  FT05F001  LRECL:  80 

10  TYPE:  INPUT  BLKSIZE:  80 

FILE  TYPE:  BCD  recFM:  pB 

DSN: 


Format  (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1 

- 

1 

ALPHA 

2 

- 

3 

4 

- 

6 

i 

7 

- 

16 

ALPHA 

17 

- 

24 

INTEGER 

25 

- 

32 

1 

i 

33 

- 

40 

41 

- 

48 

49 

- 

56 

57 

- 

64 

65 

- 

72 

73 

- 

80 

INTEGER 

UGA  LEVEL  NUMBER 
•  UGA  LEVEL  ID  NUMBER 
UGA  COUNTY  NUMBER 
COUNTY  NAME 

TOTAL  POPULATION-WHITE  MALES 
TOTAL  POPULATION-NON-WHITE  MALES 
TOTAL  POPULATION-WHITE  FEMALES 
TOTAL  POPULATION-NON-WHITE  FEMALES 
POPULATION, AGES  17-24  WHITE  MALES 
POPULATION, AGES  17-24  NON-WHITE  MALES 
POPULATION, AGES  17-24  WHITE  FEMALES 
POPULATION , AGES  17-24  NON-WHITE  FEMALES 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-12  COMBINE. SBTA.UGA 

FILE: 

FT10F001 

LRECL: 

140 

10  TYPE: 

INPUT 

BLKSIZE: 

7000 

FILE  TYPE 

:  EBCDIC 

RECFM: 

FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1  - 

2 

2X 

FILLER 

3  - 

4 

12 

FIPS.  STATE  CODE 

5  - 

21 

17A1 

STATE  NAME 

22  - 

23 

A2 

STATE  ABBREVIATION 

24  - 

27 

4X 

FILLER 

28  - 

30 

13 

COUNTY  FIPS  CODE 

31  - 

62 

32A1 

BASIC  TRADING  AREA  (BTA)NAME 

63  - 

66 

14 

BTA  CODE 

67  - 

70 

A4 

TRADING  AREA  (TA)  ABBR 

71  - 

72 

2X 

FILLER 

73  - 

75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76  - 

85 

110 

POPULATION  COUNTS  (TOTAL) 

86  - 

87 

2X 

FILLER 

88  - 

94 

17 

POPULATION  COUNTS  (BLACK) 

95  - 

103 

18 

LAND  AREA 

104  - 

112 

19 

QMA  POPULATION 

113  - 

120 

F8.2 

POPULATION  DENSITY 

121  - 

122 

2X 

FILLER 

123  - 

140 

18A1 

COUNTY  NAME 

2-36 


FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P2-I2  COMBINE. SBTA.UGA 

FT20F001 

OUTPUT 

EBCDIC 

EXTND . COUNTY. INFO . FILE 


LRECL:  220 

BLKSIZE:  6600 

RECFM:  FB 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1 

- 

2 

2X 

FILLER 

3 

- 

4 

12 

FIPS  STATE  CODE 

5 

- 

21 

17A1 

STATE  .NAME 

22 

- 

23 

A2 

STATE  ABBREVIATION 

24 

- 

27 

4X 

FILLER 

28 

- 

30 

13 

COUNTY  FIPS  CODE 

31 

- 

62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63 

- 

66 

14 

BTA  CODE 

67 

- 

70 

A4 

TRADING  AREA  (TA)  ABBR 

71 

- 

72 

2X 

FILLER 

73 

- 

75 

13 

MAJOR  TRADING  AREA  (WTA)  CODE 

76 

- 

85 

110 

POPULATION  COUNTS  (TOTAL) 

86 

- 

87 

2X 

' 

FILLER 

88 

- 

94 

17 

POPULATION  COUNTS  (BLACK) 

95 

- 

103 

18 

LAND  AREA 

104 

- 

112 

19 

QMA  POPULATION 

113 

- 

120 

F8. 

,2 

POPULATION  DENSITY 

121 

- 

122 

2X 

FILLER 

123 

- 

140 

18A1 

COUNTY  NAME 

141 

- 

141 

ALPHA 

UGA  LEVEL  NUMBER 

142 

- 

143 

l 

UGA  LEVEL  ID  NUMBER 

144 

- 

146 

f 

UGA  COUNTY  NUMBER 

147 

- 

156 

ALPHA 

COUNTY  NAME 

157 

- 

164 

INTEGER 

TOTAL 

POPULATION  WHITE  MALES 

165 

- 

172 

i 

TOTAL 

POPULATION  NON-WHITE  MALES 

173 

- 

180 

TOTAL 

POPULATION  WHITE  FEMALES 

181 

- 

188 

TOTAL 

POPULATION-  NON-WHITE  FEMALES 

189 

- 

196 

POPULATION,  AGES  17-24  WHITE  MALES 

197 

- 

204 

POPULATION,  AGES  17-24  NON-WHITE  MALES 

205 

- 

212 

POPULATION,  AGES  17-24  WHITE  FEMALES 

213 

- 

220 

INTEGER 

POPULATION,  AGES  17-24  NON-WHITE  FEMALES 
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Program  u.n.io: 


MI'WIIO 


l'ro-.’.ram  ID: 


Purpose : 


This  |>ro)’.r.un  computes  comity  popul.il  imis  for  males,  fem.il 
white,  black  ami  other  usinj;  boLli  SI1TA  and  UUA  daLa. 


Author :  Alison  Crews 

Computer/ OS :  IBM  360-370/HASP  I  Lanpuare :  FORTRAN  0 

_ _ _ _ J _ 

Estimated  Requirements : 

Core:  100  K  Tape  Drives:  2 

CPU  Time:  2  MIN  Disk  Drives:  0 

Print  Lines:  3200 

Subroutine  name/entry/entry . 

Internal  (S0URCE/03JECT)  External 


Input  Files: 

FT05F001  CORRECTIONS  TO  EXTENDED  COUNTY  INFORMATION  FILE 
(PUNCHED  CARDS ) 

FT10F00 1  EXTND . COUNTY . INFO . FILE 


Output  Files: 


FT06F00 l 
FT20F00 1 


POPULATION  REPORT  FOR  TOTAL  POPULATION  AND  17-24 
YEAR  OLDS  BY  SEX  AND  WHITE,  BLACK  AND  OTHER 

COMPUT .  CTY .  P  OP .  MF.vBO .  Y  R  70 .  TRY  1 
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FILE  DOCUMENTATION 


PROGRAM:  P2-13  MFWBO 

FILE:  FT05F00 1 

10  TYPE:  INPUT 
FILE  TYPE:  BCD 
DSN: 


LRECL:  80 
BLKSIZE:  80 
RECFM:  FB 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


Data  Description 


1 

- 

4 

A4 

COUNTY  CORRECTION  CODE 

7 

- 

10 

6X 

.  FILLER 

11 

- 

20 

INTEGER 

i 

1ST 

CORRECTION 

21 

- 

30 

i 

2ND 

CORRECTION 

31 

- 

40 

3RD 

CORRECTION 

41 

- 

50 

4TH 

CORRECTION 

51 

- 

60 

5TH 

CORRECTION 

61 

- 

70 

\  . 

6TH 

CORRECTION 

71 

_ 

80 

INTEGER 

7TH 

CORRECTION 

I 


I 


FILE  DOCUMENTATION 


PROGRAM: 

P2-13  MFWBO 

FILE: 

FT  10F00 1 

LRECL: 

220 

10  TYPE: 

INPUT 

BLKSIZE: 

6600 

FILE  TYPE 

:  EBCDIC 

RECFM: 

FB 

DSN: 

EXTND. COUNTY 

.INFO. FILE 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1 

- 

2 

2X 

FILLER 

3 

- 

4 

12 

FIPS  STATE  CODE 

5 

- 

21 

17A1 

STATE  NAME 

22 

- 

23 

A2 

STATE  ABBREVIATION 

24 

- 

27 

4X 

FILLER 

28 

- 

30 

13 

COUNTY  FIPS  CODE 

31 

- 

62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63 

- 

66 

14 

BTA  CODE 

67 

- 

70 

A4 

TRADING  AREA  (TA)  ABBR 

71 

- 

72 

2X 

FILLER 

73 

- 

75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76 

- 

85 

110  . 

POPULATION  COUNTS  (TOTAL) 

86 

- 

87 

2X 

FILLER 

88 

- 

94 

17 

POPULATION  COUNTS  (BLACK) 

95 

- 

103 

18 

LAND  AREA 

104 

- 

112 

19 

QMA  POPULATION 

113 

- 

120 

F8.2 

POPULATION  DENSITY 

121 

- 

122 

2X 

FILLER 

123 

- 

140 

18A1 

COUNTY  NAME 

141 

- 

141 

ALPHA 

UGA  LEVEL  NUMBER 

142 

- 

143 

i 

UGA  LEVEL  ID  NUMBER  ‘ 

144 

- 

146 

1 

UGA  COUNTY  NUMBER 

147 

- 

156 

ALPHA 

COUNTY  NAME 

157 

- 

164 

INTEGER 

TOTAL  POPULATION  WHITE  MALES 

165 

- 

172 

4 

TOTAL  POPULATION  NON-WHITE  MALES 

173 

- 

180 

1 

{ 

TOTAL  POPULATION  IHITE  FEMALES 

181 

- 

188 

TOTAL  POPULATION  NON-WHITE  FEMALES 

189 

- 

196 

POPULATION, AGES  17-24  WHITE  MALES 

197 

- 

204 

»  | 

POPULATION, AGES  17-24  NON-WHITE  MALES 

205 

- 

212 

▼ 

POPULATION, AGES  17-24  WHITE  FEMALES 

213 

- 

220 

INTEGER 

POPULATION, AGES  17-24  NON-WHITE  FEMALES 

2-40 


3 


FILE  DOCUMENTATION 


PROGRAM: 

P2-13  MFWBO 

FILE: 

FT20F00 1 

LRECL: 

252 

10  TYPE: 

OUTPUT 

BLKSIZE: 

5040 

FILE  TYPE: 

EBCDIC 

RECFM: 

FB 

DSN:  COMPUT . CTY . POP . 

MFWBO. YR 70. TRY  1 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1 

- 

2 

2X 

FILLER 

3 

- 

4 

12 

FIPS  STATE  CODE 

5 

- 

21 

17A1 

STATE  NAME 

22 

- 

23 

A2 

STATE  ABBREVIATION 

24 

- 

27 

4X 

FILLER 

28 

- 

30 

13 

COUNTY  FIPS  CODE 

31 

- 

62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63 

- 

66 

14 

BTA  CODE 

67 

- 

70 

A4 

TRADING  AREA  (TA)  ABBR 

71 

- 

72 

2X 

FILLER 

73 

- 

75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76 

- 

85 

110 

POPULATION  COUNTS  (TOTAL) 

86 

- 

87 

2X 

FILLER 

88 

- 

94 

17 

POPULATION  COUNTS  (BLACK) 

95 

- 

103 

18 

LAND  AREA 

104 

- 

112 

19 

QMA  POPULATION 

113 

- 

120 

F8 

.2 

POPULATION  DENSITY 

121 

- 

122 

2X 

FILLER 

123 

- 

140 

18A1 

COUNTY  NAME 

141 

- 

141 

ALPHA 

UGA  LEVEL  NUMBER 

142 

- 

143 

k 

UGA  LEVEL  ID  NUMBER 

144 

- 

146 

f 

UGA  COUNTY  NUMBER 

147 

- 

156 

ALPHA 

COUNTY  NAME 

157 

- 

164 

INTEGER 

TOTAL  POPULATION  WHITE  MALES 

165 

- 

172 

i 

TOTAL  POPULATION  BLACK  MALES 

173 

- 

180 

1 

TOTAL  POPULATION  3THER  MALES 

181 

- 

188 

TOTAL  POPULATION  JHITE  FEMALES 

189 

- 

196 

TOTAL  POPULATION  3 LACK  FEMALES 

197 

- 

204 

TOTAL  POPULATION  OTHER  FEMALES 

205 

- 

212 

POPULATION, 17-24  YRS  WHITE  MALES 

213 

- 

220 

POPULATION, 17- 24  YRS  BLACK  MALES 

221 

- 

228 

POPULATION, 17-24  YRS  OTHER  MALES 

229 

- 

236 

POPULATION, 17-24  YRS  WHITE  FEMALES 

•  237 

- 

244 

POPULATION, 17-24  YRS  BLACK  FEMALES 

245 

- 

252 

1 

r 

POPULATION, 17-24  YRS  OTHER  FEMALES 
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Program  n.une:  DTil.AdOREC. 


Purpose : 


Program  ID:  P2- 


This  program  extracts  the  number  of  deaths  by  state,  sex,  race, 
and  age  from  the  National  Center  for  Health  Statistics' cause  of  death 
summary  tapes.  The  tapes  are  sorted  by  state,  sex,  and  race  prior  to 
tills  processing  step.  The  program  is  run  three  times  ,  once  each  for 
the  1972,  1973,  and  1974  death  tapes. 


Author :  Alison  Crews 


Computer/OS:  IBM  370/Haop 


Language: 


FORTRAN  0 


Estimated  Requirements: 


Cora:  200  K  Tape  Drives:  2 
CPU  Time:  2  rain  Disk  Drives:  j 
Print  Lines:  2500 

Subroutine  name/entry/entry, 


Internal  (SOURCE/OBJECT) 
RDDTHS  (SOURCE) 

DATACK  (SOURCE) 


External 

mvec.R 

FWRITE 

LEAVE 

FREAD 


Input  Files: 

FT10F001  National  Center  for  Health  Statistics' 

cause  of  death  summary  tape 


Output  Files: 

FT20F00 1  STATE. DEATHS. YR19XX 

SYSOUT  The  program  prints  a  list  of  the  number  of 

deaths  by  state,  sex,  race,  and  age.  The 
program  also  lists  the  number  of  records  read, 
used,  written  and  bypassed. 
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FILE  DOCUMENTATION 


PROGRAM:  P2-14  DTH.AGGREG 


FILE: 

FT10F001 

LRECL: 

194 

10  TYPE: 

INPUT 

BLKSIZE: 

1940 

FILE  TYPE 

;  MIXED 

RECFM: 

FB 

UNKNOWN  -  USE  BLP 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1 

2  -  3 
4 

5-6 

7 

8-36 
37  -  40 
41  -  60 
61  -  64 
65  -  68 
69  -  72 
73  -  76 
77  -  80 
81  -  84 
85  -  88 
89  -  92 
93  -  96 
97  -  194 


A1 
12 
II 
'  2X 
II 
29X 

BINARY, INTEGER 


RECORD  NUMBER 
STAT-E  CODE 

SEX  CODE ( 1=MALE , 2= FEMALE) 

FILLER 

RACE  CODE  ( 1=WHITE , 2= BLACK , 3“ ALL  OTHER) 
FILLER 

NO.  OF  DEATHS  LESS  THAN  1  YR  OLD 
FILLER 

NO.  OF  DEATHS  1  YR  OLD 

h  2  YR S  OLD 

3 

v  4 

FILLER 

NO.  OF  DEATHS  5-9 
n  10-14 

15-19 
'  20-24 

FILLER 


YRS  OLD 


t 


FILE  DOCUMENTATION 


PROGRAM: 

P2-14  DTH.AGGREG 

FILE: 

FT20F001 

LRECL: 

48 

10  TYPE: 

OUTPUT 

BLKSIZE : 

7200 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN:  STATE, DEATHS. YR19XX 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1  -  4 
5.-8 
9-12 
13  -  16 
17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 
45  -  48 


INTEGER  FIPS  STATE  CODE 

il  SEX  CODE  (1-MALE, 2-FEMALE) 

RACE  CODE  (1-WHITE, 2-BLACK, >OTHER; 
NUMBER  OF  DEATHS  FOR  AGE  LT  1  YR  OLD 
U  FOR  AGE  1  YR 

2  '» 

3 

4 

AGES  5-9 
10  -  14 
15  -  19 

7  f  20  -  24  'f 
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j  Program  name:  FITNESS  I  Program  ID:  P2-15 


Purpose: 


Tills  program  determines  mental  and 
from  AFEES  data.  The  data  is  extracted 
tlonal  regions  for  urban  areas  within  9 
Illinois,  Michigan,  Pennsylvania,  Ohio, 


physical  fitness  proportions 
at  a  state  level  with  uddi- 
states.  New  York,  California, 
Texas,  Washington,  Massachusetts 


Author: 

Unknown 

Computar/OS 

IBM  370/Hasp 

^  Language:  foctpam  r. 

i 

Es t ima t ed  Requirement s : 


Core:  100  K  Tape  Drives:  2 
CPU  Time:  26  min  Disk  Drives:  1 
Print  Lines:  4000 

Subroutine  name/entry/entry .  -  . 


Internal  (SOURCE/ OBJECT)  External 

ZIPSTS(S)  PAZIP(S)  FREAD 

NYZIP  (S)  OHZIP(S)  GETCR 

ILZIP  (S)  TXZIP(S)  LISTI 

CAZIP  (S)  WAZIP(S)  LEAVE 

MIZIP  (SI  MAZIP(S)  . . .  .. 


Input  Files: 

FT10F001  USRDD. XTREN. F7206 

USRDD . XTREN.  F7  306 


Output  Files: 

FT20F00 1  FITNESS. YR72T073.  TRY  1 

SYSOUT  This  file  contains  a  listing  of  the  counts  written  on 

tape  20  as  well  as  a  summary  of  the  record  processing, 
e.g.,  number  of  records  read,  number  of  records  pro¬ 
cessed,  etc. 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-15  FITNESS 

FILE: 

FT10F001 

LRECL: 

105 

10  TYPE: 

INPUT 

BLKSIZE: 

5250 

FILE  TYPE 

5 

EBCDIC 

RECFM: 

FB 

DSN:  USRDD.XTREN.F7206 

USRDD . XTREN . F73  06 

Format (EBCDIC) 

Column  Data  Type (Binary) 

Data  Description 

1  - 

5 

15 

ZIP  CODE 

6.  - 

11 

16 

DATE  OF  EXAM  (YYMMDD) 

12  - 

17 

16 

DATE  OF  BIRTH (YYMMDD) 

18 

11 

YRS  OF  EDUCATION 

19 

A1 

SEX 

20 

11 

RACE 

21  - 

22 

A2 

AFQT  TEST  USED 

23  - 

25 

13 

PERCENTILE 

26 

11 

MENTAL  CATEGORY 

27  - 

29 

13 

AFQT  PERCENTILE  (REPEATED) 

30  - 

50 

713 

TEST  SCORES 

51 

11 

BRANCH  OF  SERVICE 

52 

A1 

STATUS 

53  - 

105 

53X 

FILLER 

I 

I 

I 

I 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-I5  FITNESS 

FILE: 

FT20F001 

LRECL: 

136 

10  TYPE: 

OUTPUT 

BLKSIZE: 

2720 

file  TYPE 

:  BINARY 

RECFM: 

FB 

DSN: 

FITNESS. TRY 1 

Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1  - 

4 

S  - 

8 

9  - 

12 

13  - 

16 

17  - 

20 

21  - 

24 

25  - 

28 

29  - 

32 

33  - 

36 

37  - 

40 

41  - 

44 

45  - 

48 

49  - 

52 

53  - 

56 

57  - 

60 

61  - 

64 

65  - 

68 

69  - 

72 

73  - 

76 

77  - 

80 

81  - 

84 

85  - 

88 

89  - 

92 

93  - 

96 

97  - 

100 

101  - 

104 

105  - 

108 

109  - 

112 

113  - 

116 

117  - 

120 

121  - 

124 

125  - 

128 

129  - 

132 

133  - 

136 

INTEGER 

INTEGER 

REAL 

4 


| 


? 

REAL 


REGION  CODE 
REGION  ABBREVIATION 
MALES  WHITE  MEN. CAT.  1  (Proportion) 

I  2  I 

3 

|  4 

!  5 

!  6 

7  7 

PHYS. UNFIT 
BLACK  MEN. CAT.  1 

i  I 

2 

3 

4 

5  . 

I  '  6 

V  7 

▼  PHYS. UNFIT 

OTHER  MEN. CAT.  1 
2 

3 

4 

5 

T  6 

▼  7  PHYS. UNFIT 

FEMALES  TOTAL  MEN. CAT.  1 

2 

3 

4 

5 

6 

u  phys.unfit'’ 
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Program  name:  CREATE. CTY. PROP. MFWBO 

Program  ID:  P2-17 

Purpose : 

This  program  computes  county  proportions  from  the 

improved  SBTA/UGA  data. 

Author:  Alison  Crews 

Computer /OS:  IBM  360-70/HASP 

Language:  FORTRAN  C 

- - 

Estimated  Reauirements : 


Core:  100K 

CPU  Time:  8  MIN 
Print  Lines:  5000 


Tape  Drives:  2 
Disk  Drives:  1 


Subroutine  name/entry /entry. . 

Internal  (SOURCE/OBJECT) 

INITCP/CP0P6/PRNCNT (SOURCE) 

IN ITCG / NXTGRP / PRTCGP (SOURCE ) 

ZROFIL  (SOURCE) 

RDCCG (OBJECT) 


External 

LISTI 

BNSCHI 


Input  Files: 

FT09F001  COMPUT . CTY . POP . MFWBO . YR7  0 . TRY1 

FT11F001  RES . CTY . CTYGRP 


Output  Files: 


FT20F001 

FT21F001 

FT22F001 

SYSOUT 


CTY. PROP. WB070 

CTY  STATS  RETRIEVAL  SYSTEM  ERROR  MESSAGES  FROM  INITCP 
CTY-CTY  GROUP  MAPPING  ERROR  MESSAGES  FROM  INITCP 
INTERMEDIATE  RESULTS,  LISTS  OF  PROPORTIONS  GENERATED  BY 
CTY  GRP  &  CTY 
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I 


FILE  DOCUMENTATION 


PROGRAM: 

P2-17 

CREATE . CTY . PROP .MFWBO 

FILE: 

FT09F001 

LRECL: 

252 

10  TYPE: 

INPUT 

BLKSIZE: 

5040 

FILE  TYPE 

;  EBCDIC 

RECFM: 

FB 

DSN:  COMPUT . CTY . POP . MFWBO . TRY 1 


Column 

1-2 

3-4 

5-21 

22-23 

24-27 

28-30 

31-204 

205-212 

213-220 

221-228 

229-236 

237-244 

245-252 


Format (EBCDIC) 
Data  Type (Binary) 

2X 

12 

17X 

A2 

4X 

13 

174X 

18 

18  * 

18 

18 

18 

18 


Data  Description 


FILLER 

STATE  FIPS  CODE 
’  FILLER 

STATE  ABBREVIATION 
FILLER 

COUNTY  FIPS  CODE 
FILLER 

POPULATION  COUNTS  MALE 

y 


FEMALE 


Sr 


T 


S' 


WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 


FILE  DOCUMENTATION 


PROGRAM:  P2-17 
FILE:  FTllFOOl 

10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  RES . CTY . CTYGRP 


CREATE . CTY . PROP . MFWBO 


LRECL : 
BLKSIZE : 
RECFM: 


80 

7200 

FB 


Format (EBCDIC) 

Column  Data  Type (Binary) 

1-70  5(3X,I5,1X,I5) 


e.g. 

1-3 

4-8 

9 

10-14 


Data  Description 

COUNTY-COUNTY  GROUP 
MAPPINGS  (MAXIMUM  OF 
5  PER  CARD) 

FILLER 
COUNTY  CODE 
FILLER 

COUNTY  GROUP  CODE 
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FILE  DOCUMENTATION 


PROGRAM: 

P2-17 

CREATE. CTY. PROP. MFWBO 

FILE: 

FT20F001 

LRECL: 

80 

10  TYPE: 

OUTPUT 

BLKSIZE: 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  CTY . PROP . WB07  0 


Column 

1-5 

6-22 

23-27 

28-33 

34-40 

41-47 

48-54 

55-59 

60-66 

67-73 

74-80 


Format (EBCDIC) 
Data  Type (Binary) 

511 

17X 

511 

6X 

F7.4 

F7.4 

F7.4 

5X 

F7.4  ' 

F7.4 

F7.4 


Data  Description 
COUNTY  GROUP  CODE 
FILLER 

COUNTY  FIPS  CODE 
FILLER 

PROPORTION  MALE  WHITE 
BLACK 

y-  V  OTHER 

FILLER 

PROPORTION  FEMALE  WHITE 
BLACK 
OTHER 
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EVELOrXl.NT  or  ABILITY  BATES  FOB  A  C1VPI  YEAR 


Program  name: 


PULL. GA. MOB 


Program  ID:  P3_i 


Purpose:  This  program  extracts  mobility  data  £rom  UGA  tape.  It  creates 
proportions  of  subgroup  mobility  to  total  absolute  mobility  by 
5-year  age  groups,  sex,  color  (white  and  non-white)  and  state. 
It  also  creates  a  mobility  factor  file  by  state  using  the  ratio 
of  net  mobility  to  total  absolute  mobility  within  the  state. 

UGA  state  codes  are  adjusted  to  FIPS  state  codes. 


Author:  Alison  Crews 


Computer /OS:  jbm  370/HASP 


Language:  FORTRAN  G 


Estimated  Requirements: 

Core:  100K  Tape  Drives:  3 

CPU  Time:  120  SEC  Disk  Drives:  0 

Print  Lines:  350 

Subroutine  name/entry/entry. . . 
Internal  (SOURCE/OBJECT)  External 


tput  Files: 

FT10F001  FNM75. MASTER  (treated  as  unlabelled  tape) 


Output  Files: 

FT20F001 

UNLABELLED  contains  mobility  proportions  by  state,  sex, 
5-year  age  groups  (0-24  yrs)  and  vhlte/non-white  color. 

FT21F001 

List  of  FACTR  file,  multlplyers  created  from  ratio 
to  total  absolute  mobility  in  a  state. 

of  net 

FT22F001 

UNLABELLED  contains  FACTR  file. 

STSOUT-B 

Punch  file  of  total  state  populations. 

STSOUT-A 

List  of  mobility  proportions  by  state,  sex,  5-year  age 
groups  (0-24  yrs),  atxi  color. 

FILE  DOCUMENTATION 


PROGRAM:  P3-1 


FILE: 

FT22F001 

LRECL: 

32 

10  TYPE:  OUTPUT 

BLKSIZE: 

3200 

FILE 

TYPE:  EBCDIC 

RECFM: 

FB 

DSN: 

UNLABELLED 

(FACTR) 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-4 

.14 

Signed  FIPS  state  code  where  sign 

denotes  sign  of  net  state  mobility 

in  1970. 

5-8 

4X 

Filler 

9-16 

F8  ..5 

Ratio  of  state  total  absolute 

mobility  to  state  net  mobility 
for  1960-1970  (UGA  data). 

17  -  24  Fg  .5  Mobility  multiplier  of  mobility 

subpopulation  has  opposite  sign 
from  state  net  mobility  count. 

25-  -  32  F'8  .5  Mobility  multiplier  of  mobility 

subpopulation  has  same  sign  as 
state  net  mobility  count. 
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FILE  DOCUMENTATION 


PROGRAM: 


P3-1  PULL. GA. MOB 


FILE:  FT20F001 

LRECL: 

232 

10  TYPE:  OUTPUT 

BLKSIZE: 

4640 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  UNLABELLED  (PROP1) 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1-2 

12 

FIPS  STATE  CODE 

3-22 

5A4 

STATE 

NAME 

23-32 

33-42 

43-52 

53-62 

63-72 

73-82 

83-92 

93-102 

103-112 

113-122 

123-132 

133-142 

143-152 

153-162 

163-172 

173-182 

183-192 

193-202 

203-212 

213-222 

223-232 


F10.5 

* 


V 

F10.5 

110 


MOBILITY  PROPORTION  MALE  WHITE  AGE  0-4 


MOBILITY  * 
PROPORTION 


FEMALE  WHITE 
MALE  NON-WHITE 
FEMALE  NON-WHITE  AGE"  0-4 
MALE  WHITE  AGE  5-9 
FEMALE  WHITE 
MALE  NON-WHITE 
FEMALE  NON-WHITE  AGE  5-9 

MALE  WHITE  AGE  10-14 
FEMALE  WHITE 
MALE  NON-WHITE 
FEMALE  NON-WHITE  AGE  10-14 
MALE  WHITE  AGE  15-19 
FEMALE  WHITE 
MALE  NON-WHITE 
FEMALE  NON-WHITE  AGE  15-19 
MALE  WHITE  AGE  19-24 
FEMALE  WHITE 
MALE  NON-WHITE. 

FEMALE  NON-WHITE  AGE  19-24 


l 

IE  0-i 

IE  . 

t 

ie  : 

;e  j 

t 

;e  : 

!E  J 

l 

;e  : 
ie  : 

I 


TOTAL  STATE  POPULATION 
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* 


Program  name: 


REAPTN.MOB 


Program  ID:  P3-2 


- — - -  ..  I _ 

Purpose:  This  program  converts  proportions  of  non-white  mobility  for 

five  age  groups  (1-25  yrs.)  into  proportions  for  black  and  other. 
Proportions  for  white  individuals  arc  unchanged.  The  proportions  of 
each  age  group  are  distributed  evenly  among  each  age  within  the  age 
group,  maintaining  race  and  sex  subdivisions. 


A.u.cl?°.r  •  Alison  Crews 


Computer/OS:  IBM  370/I1ASP 

Language:  FORTRAN  G 

Estimated  Reauirements: 

Core:  100K  Tape  Drives:  3 
CPU  Time:  20  seconds  Disk  Drives:  0 
Print  Lines:  622 

Subroutine  name/entry/entry. .  . 
Internal  (SOURCE/OBJECT)  External 


NONE 


Input  Files: ■ 


FT03F001  UNLABELLED 

V0L«SER»PR0P1 

SYSIN  FILE  OF  RACE  PROPORTIONS  BY  SEX  OF  RATIO  OF  TOTAL  BLACK/ 

NON-WHITE  AND  TOTAL  OTHER/NON-WHITE  (DERIVED  FROM  UGA 
POPULATION  DATA) 


Outout  Files: 


FT20F001 


FT21F001 

FT23F001 

SYSOUT 


UNLABELLED  CONTAINING  REVISED  MOBILITY  PROPORTIONS  BY  STATE,  SEX 
RACE,  AND  5-YR.  AGE  GROUPS 
VOL-SER«REVPRO 

LIST  OF  REVISED  MOBILITY  PROPORTIONS  BY  STATE,  SEX,  RACE,  AND 
5-YR.  AGE  GROUPS 

UNLABELLED  CONTAINING  REVISED  MOBILITY  PROPORTIONS  SPREAD  IN 
AGES  0-24 
VOL=SER»C647 

LIST  OF  REVISED  MOBILITY  PROPORTIONS  BY  STATE,  SEX,  RACE  AND 
AGE  (0-24  YRS.) 
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FILE  DOCUMENTATION 


PROGRAM:  P3-2 

REAPTN.MOB 

FILE:  SYSIN 

LRECL: 

10  TYPE:  BCD 

BLKSIZE: 

FILE  TYPE:  INPUT 

RECFM: 

DSN: 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

1-2 

12 

3-5 

3X 

6-10 

F5.4 

11-15 

5X 

16-20 

F5.4 

21-25 

5X 

26-30 

F5.4 

31-35 

5X 

36-40 

F5.4 

41-45 

5X 

80 

80 

FB 


Data  Description 

STATE  FIPS  CODE 
FILLER 

TOTAL  MALE  BLACK/TOTAL  MALE  NON-WHITE 
FILLER 

TOTAL  MALE  OTHER/TOTAL  MALE  NON-WHITE 
FILLER 

TOTAL  FEMALE  BLACK/ TOTAL  FEMALE  NON-WHITE 
FILLER 

TOTAL  FEMALE  OTHER/TOTAL  FEMALE  NON-WHITE 
FILLER 
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FILE  DOCUMENTATION 


PROGRAM:  P3-2  REAPTN . MOB 

FILE:  FT03F001 
10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  UNLABELLED 


LRECL:  232 

BLKSIZE:  4640 
RECFM:  FB 


Column 


Format  (EBCDIC) 

Data  Type (Binary)  Data  Description 


1-2 

12 

FIPS  STATE 

CODE 

3-22 

5A4 

STATE  NAME 

23-32 

F10.5 

MOBILITY 

PROPORTION  MALE  WHITE 

AGE 

0-4 

33-42 

/ 

/ 

FEMALE  WHITE 

1 

f 

43-52 

MALE  NON- WHITE 

\ 

\ 

53-62 

FEMALE  NON-WHITE 

AGE 

0-4 

63-72 

MALE  WHITE 

AGE 

5-9 

73-82 

FEMALE  WHITE 

/ 

83-92 

MALE  NON-WHITE 

i 

93-102 

FEMALE  NON-WHITE 

AGE 

5-9 

103-112 

MALE  WHITE 

AGE 

10-14 

113-122 

FEMALE  WHITE 

t 

123-132 

• 

MALE  NON-WHITE 

t 

133-142 

FEMALE  NON-WHITE 

AGE 

10-14 

143-152 

MALE  WHITE 

AGE 

15-19 

153-162 

FEMALE  WHITE 

t 

163-172 

MALE  NON-WHITE 

i 

173-182 

FEMALE  NON-WHITE 

AGE 

15-19 

183-192 

MALE  WHITE 

AGE 

19-24 

193-202 

FEMALE  WHITE 

t 

203-212 

\ 

f 

MOBILITY  ' 

t 

MALF  NON-WHITE 

1 

213-222 

F10.5 

PROPORTION  FEMALE  NON-WHITE 

AGE 

19-24 

223-232 

110 

TOTAL  STATE 

POPULATION 
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FILE  DOCUMENTATION 


PROGRAM:  P3-2 

FILE:  FT20F001 

10  TYPE:  OUTPUT 
FILE  TYPE:  EBCDIC 
DSN:  UNLABELLED  0 


REAPTN .MOB 


LRECL:  264 
BLKSIZE:  2640 
RECFM:  FB 


- - —  RECFM:  FB 

UNLABELLED  CONTAINS  REVISED  MOBILITY  PROPORTIONS  BY  STATE,  SEX,  RACE,  AND 

5-YR.  AGE  GROUP 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


1-2 

12 

3-4 

2X 

5-24 

5A4 

25-32 

F8.5 

33-40 

41-48 

49-56 

57-64 

65-72 

/  ^ 

Y  . 

F8.5 

73-120 

6F8.5 

121-168 

169-216 

217-264 

A 

y 

6F8.5 

Data  Description 

STATE  FIPS  CODE 

FILLER 

STATE  NAME 

MOBILITY  PROPORTION  MALE  WHITE  0-4  YRS . 
^  ^  y  BLACK  ^  * 

MALE  OTHER  j 

FEMALE  WHITE 
^  BLACK  j 

\l  ^  FEMALE  OTHER  ?  V 

MOBILITY  PROPORTIONS  AS  ABOVE  5-9  YRS. 

.  10-14  YRS 

15-19  YRS 

V  f  V  20-24  YRS 


FILE  DOCUMENTATION 


i 


PROGRAM:  P3-2  REAPTN . MOB 

FILE:  FT23F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  EBCDIC 

DSN:  UNLABELLED  CONTAINS  REVISED 


LRECL:  206 

BLKSIZE:  4120 
RECFM:  FB 

MOBILITY  PROPORTIONS  BY  STATE, 


SEX,  RACE,  AND 
AGE  (0-24  YRS) 


Column 


Format (EBCDIC) 

Data  Type(Binary)  Data  Description 


1-2 

3-4 

5-6 


7-14 

15-22 

23-30 

31-38 

39-46 

47-54 

55-62 

63-70 

71-78 

79-86 

87-94 

95-102 

103-110 

111-118 

119-126 

127-134 

135-142 

143-150 

151-158 

159-166 

167-174 

175-182 

183-190 

191-198 

199-206 


v 

F8.5 


FIPS  STATE  CODE 

SEX  CODE  (1=MALE,  2=FEMALE) 

RACE  'CODE  (l=white,  2=black,  3=other) 
PROPORTION  OF  INDIVIDUALS  MOVING 

LT  1-YR.OLD 
1-YR.OLD 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

PROPORTION  OF  INDIVIDUALS  24 


MOVING 
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This  p  ror.r.ini  puts  ule.til  et  <■  /no 1  . >b  1  ’  L  t  -  ■  mul .  ip  I  Lor  file  derive!  -r 
I  Net  Migi.iLion  (iVA)  oulo  ti  i  r.  ill-  .  !  u  the  process,  it  insert'; 

average  values  fu  place  of  unreason. ;!•!.*  values  for  state  of  Ki.-  eons  in. 


I 


Author :  Alison  Crews 

1  Computer  ''OS :  IBM  3 70 /Hasp  j  Language :  FORTRAN  G 

Estimated  P.cquiretients: 

i Core:  32  K  Tape  Drives:  l 

| 

j  CPU  Tima:  3  seconds  Disk.  Drives:  o 

| 

] Print  Lines:  56  lines 

Subroutine  name/entry/entry. 

Internal  (S0URCE/03JECT)  External 

None 


Input  Piles: 

FT08P001  Unlabelled  tape  of  state  mobility  multipliers — 
output  from  program  P3-1 

SYSIN  Correction  data  for  state  of  Wisconsin 


Output  Piles: 

FT20F00 1  RES  .  MOB . MULTPIA’R .  UGA .  YR70 

SYSOUT  List  of  RES.M0B.MULTPIYF..1VA.YR70 

I/O  record  cotmts. 


i 


i 


FILE  DOCUMENTATION 


PROGRAM: 

P3-3  ZETAFIL 

FILE: 

FT08F001 

LRECL: 

40 

10  TYPE: 

INPUT 

BLKSIZE: 

2040 

FILE  TYPE: 

BCD- 7  TRACK 

RECFM: 

FB 

DSN:  UNLABELLED  (CONTAINS  MOBILITY .MULTPLYR.UGA) 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1  -  4 

14 

Signed  FIPS  state  code  where 

sign  denotes  sign  of  net  state 

mobility  in  1970. 

5-8 

4X 

Filler 

9-20 

F12.5 

Ratio  of  state  total  absolute 

mobility  to  state  net  mobility 

for  1960-1970  (UGA  data). 

21  -  32 

F12.5  ' 

Mobility  multiplier  of  mobility 

subpopulation  has  opposite  sign 

from  state  net  mobility  count. 

33  -  44 

F12.5 

Mobility  multiplier  of  mobility 

subpopulation  has  same  sign  as 

state  net  mobility  count. 

FILE  DOCUMENTATION 


PROGRAM: 

P3-3  ZETAFIL 

FILE: 

SYS  IN 

LRECL: 

80 

10  TYPE: 

INPUT 

BLKSIZE: 

80 

FILE  TYPE: 

BCD 

RECFM: 

FB 

DSN: 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-4  14 

5-8  4X 

9-18  F10.5 


19  -  28  F10.5 


29  -  38  F10.5 


FIPS  state  code  of  state 
Filler 

Ratio  of  state  total  absolute 
mobility  to  state  net  mobility 
for  1960-1970  (UGA  data). 
Mobility  multiplier  if  mobility 
subpopulation  has  opposite  sign 
from  state  net  mobility  count. 
Mobility  multiplier  if  mobility 
subpopulation  has  same  sign  as 
state  net  mobility  count. 


FILE  DOCUMENTATION 


PROGRAM:  P3-3  ZETAFIL 

FILE:  FT20F00 1 

LRECL: 

AA 

10  TYPE:  OUTPUT 

BLKSIZE: 

22AA 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES .MOB .MULTPLYR.UGA.YR70 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1  -  A 

IA 

Signed  FIPS  STATE  Code  where 

sign*  denotes  sign  of  net  state 

mobility  in  1970. 

5-8 

AX 

Filler 

9-20 

F12.5 

Ratio  of  state  total  absolute 

mobility  to  state  net  mobility 

for  1960-1970  (UGA  data). 

21  -  32 

F12.5  ■ 

Mobility  multiplier  if  mobility 

subpopulation  has  opposite  sign 

from  state  net  mobility  count. 

33  -  AA 

F12.5 

Mobility  multiplier  if  mobility 

subpopulation  has  same  sign  as 
state  net  mobility  count. 
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Program  nu«:  MOB  RAT.  STATE 


Program  10 :  P  J-A 


Purpose: 


This  program  create*  mobility  rate*  for  a  particular  year  by  atate, 
•ex,  race,  and  age*  0*24  years.  It  uae*  annual  net  atate  mobility  counts, 
pertinent  population  count*,  proportion*  of  absolute  mobility  for  sub- 
population*  and  the  computed  multiplier  of  total  absolute  vs  net  mobility 
for  a  state. 


Author:  Alison  Crews 


Computer /OS:  IBM  370/Hasp 


Language:  FORTRAN  C 


Estimated  Requirements: 


CPU  Time:  20  sec 

Print  Lines:  720 


Tape  Drives :  3 

Disk  Drives:  1 


Subroutine  name/entry/enery. 


Internal  (SOURCE/OBJECT) 
RDCNT  (SOURCE) 

BNSCHI  (SOURCE) 


Input  riles: 

VTOSTOOl 

RES.M0B.MULTPLTt.UCA.TR70 

FT09P001 

RES. NET. ANNUAL. STATE. MOBS 
PT10P001 

ENR1CH.STATE.PUS.YR 70 
-  rr ii pool 

STATE.MDB . PROPTN. ACE. SEE. RACE 


External 

PREAD 

WRITE 

LEAVE 


(Nitput  riles: 

PT0AF001 

Mobility  rates  by  state,  sex,  race,  age  0-24 
PT20F001 

STATE. MOB. RATES. MPVB0, TREE- YT 
STSOUT 

1.  Nee  annual  people  mnvlog  by  state  for  years  1971,  72,  73,  74, 

2.  Multiplier  flle/state 
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FILE  DOCUMENTATION 


PROGRAM: 

P3-4  MOBRAT.  STATE 

FILE: 

SYSIN 

LRECL : 

80 

10  TYPE: 

INPUT 

BLKSIZE: 

80 

FILE  TYPE: 

BCD 

RECFM: 

FB 

DSN: 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 

Card  1 

1.-5  15  LOCATION  IN  ARRAY  AMOB  FOR  NET 

MOBILITY  FOR  EACH  STATE. 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 


P3-4  MOBRAT. STATE 

FT08F001 

INPUT 

EBCDIC 


DSN: 


RES . MOB . MULTPLYR . UGA . YR7  0 


LRECL:  *4 

BLKSIZE:  2244 
RECFM:  FB 


Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1  -  4 


5-20 
21  -  32 


33  -  44 


14 


16X 

F12.5 


F12.5  ' 


SIGNED  FIPS  STATE  CODE  WHERE  SIGN 
DENOTES  SIGN  OF  NET  STATE  MOBILITY 
IN  1970. 

FILLER 

MOBILITY  MULTIPLIER  IF  MOBILITY 
SUBPOPULATION  HAS  OPPOSITE  SIGN  FROM 
STATE  NET  MOBILITY  COUNT. 

MOBILITY  MULTIPLIER  IF  MOBILITY 
SUBPOPULATION  HAS  SAME  SIGN  AS 
STATE  NET  MOBILITY  COUNT. 
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FILE  DOCUMENTATION 


PROGRAM: 

P3-4  MOBRAT. STATE 

FILE: 

FT09F001 

LRECL : 

80 

10  TYPE: 

INPUT 

BLKSIZE: 

7200 

FILE  TYPE: 

EBCDIC 

RECFM: 

FB 

DSN:  RES. NET. ANNUAL. STATE. MOBS 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1 

- 

2 

12 

FIPS  STATE 

CODE 

3 

- 

6 

4X 

FILLER 

7 

- 

8 

A 2 

STATE  ABBREVIATION 

9 

- 

20 

12X 

FILLER 

21 

- 

28 

F8 

.0 

NET  STATE 

MOBILITY 

1970-71 

29 

- 

36 

J 

1971-72 

37 

- 

44 

1 

1972-73 

45 

- 

52 

• 

I 

1973-74 

53 

- 

60 

r 

1 

1 

f 

1974-75 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P3-4  MOBRAT. STATE 

FT10F00 1 

INPUT 

BINARY 

ENRICH. STATE. PUS. YR70 


LRECL: 

BLKSIZE: 

RECFM: 


112 

4480 

FB 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1  -  4 
5-8 
9-12 
13  -  16 
17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 
45  -  48 
49  -  52 
53  -  56 
57  -  60 
61  -  64 
65  -  68 
69  -  72 
73  -  76 
77  -  80 
81  -  84 
85  -  88 
89  -  92 
93  -  96 
97  -  100 
101  -  104 
105  -  108 
109  -  112 


INTEGER 


V 


FIPS  STATE  CODE 

SEX  CODE  (1=MALE,  2= FEMALE) 

RACE  CODE  (1-WHITE,  2=BLACK,  3=OTHER) 
POPULATION  COUNT  FOR  LT  1  YR  OLD 

1  YR  OLD 

2  YRS  OLD 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 
17 


20 

21 

22 

23 

24  ? 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P3-4  MOBRAT. STATE 
FT11F001 
INPUT 
EBCDIC 

RECFM:  FB 

UNLABELLED  (contains  STATE. MOB. PROPTN. AGE. SEX. RACE) 


LRECL : 
BLKSIZE: 


206 

4120 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1 

- 

2 

12 

FIPS  STATE  CODE 

3 

- 

4 

12 

SEX  CODE  ( 1=MALE ,  2 -=  FEMALE) 

5 

- 

6 

12 

RACE  .CODE  ( 1= WHITE ,  2= BLACK,  3=OTHER) 

7 

- 

14 

F8 

.5 

PROPORTION  OF  PEOPLE  MOVING  LT  1 

15 

- 

22 

j 

i 

•  1  YR  OLD 

23 

- 

30 

k  2  YRS 

OLD 

31 

- 

38 

3 

\ 

39 

- 

46 

4 

47 

- 

54 

5 

55 

- 

62 

6 

63 

- 

70 

7 

71 

- 

78 

8 

79 

- 

86 

9 

87 

- 

94 

10 

95 

- 

102 

11 

103 

- 

110 

12 

111 

- 

118 

13 

119 

- 

126 

14 

127 

- 

134 

15 

135 

- 

142 

16 

143 

- 

150 

17 

151 

- 

158 

18 

159 

- 

166 

19 

167 

- 

174 

20 

175 

- 

182 

21 

183 

- 

190 

22 

191 

- 

198 

23 

199 

- 

206 

r 

1 

24 

r 

PROGRAM: 

FILE  DOCUMENTATION 

P3-4  MOBRAT. STATE 

• 

FILE: 

FT20F00 1 

LRECL: 

116 

10  TYPE: 

OUTPUT 

BLKSIZE : 

3480 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN: 

STATE. MOB 

.  RATES . MFWBO . YRXX-  YY 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

I 


1 

- 

4 

INTEGER 

FIPS  STATE  CODE 

5 

- 

8 

l 

SEX  CODE  (1=MALE, 

2= FEMALE) 

9. 

- 

12 

INTEGER 

RACE  CODE  (1=WHITE,  2=BLACK,  3=0THER) 

13 

- 

16 

REAL 

MOBILITY  RATE  FOR 

.  LT  1  YR  old 

17 

- 

20 

1 

i 

i  • 

FOR  1  YR  old 

21 

- 

24 

1 

FOR  2  1 

25 

- 

28 

3 

29 

- 

32 

4 

33 

- 

36 

5 

37 

- 

40 

6 

41 

- 

44 

7 

45 

- 

48 

I 

1 

8 

49 

- 

52 

9 

53 

- 

56 

10 

57 

- 

60 

| 

11 

61 

- 

64 

12 

65 

- 

68 

I 

13 

69 

- 

72 

14 

73 

- 

76 

15 

77 

- 

80 

16 

81 

- 

84 

17 

* 

85 

- 

88 

I 

18 

89 

- 

92 

1 

19 

93 

- 

96 

20 

97 

- 

100 

21 

101 

- 

104 

m 

22 

105 

— 

108 

1 

r 

f 

23 

109 

- 

112 

REAL 

MOBILITY  RATE 

24  T 

113 

- 

116 

ALPHA 

Switch  denoting  whether  a  sub-pop ula- 

tion  is  less  than  1 . or  number  of 
migrants  is  zero. 


blank  =  no 
***  =  yes 


JlA'i  i 


CONTINUED 


I  HU  EX) 


n*V»lOTHtllT  or  GROWTH  RATES 


CONTINUED) 


1972,  1974 


GROWTH  RATES  1976~1986 


Card  2  Card  3 

1YH.ITYP  NCOLS , NROUS , NSETS , I BGN 


Program  mm:  CR03 


Program  ID:  P3-5 


Purpose: 


This  program  compucaa  growth  rate#  for  a  particular  year  by  stete, 
•ex,  race,  and  ages  0-24  years.  It  also  produces  an  "aged"  population 
file  for  the  same  aubcategoriea.  Growth  rates  for  17-24  yrs  only  are 
retained  on  magnetic  tape.  Mortality  data  can  be  entered  either  as 
mortality  counts  or  mortality  rates.  Mobility  data  is  entered  in  the 
form  of  mobility  rates.  Output  print  files  Include  mobility  races, 
death  races,  growth  races  and  projected  populations. 


Author:  Alison  Cra 


Cooputer/OS:  IBM  370/Hasp 


Language:  FORTRAN  G 


Eat  lasted  Requirements: 
COW  120  K 
CPU  Time:  45  seconds 
Print  Lines:  40OO 


Tape  Drives:  5 


Disk  Drives: 


Subroutine  name/entry/entry. 


Internal  (SOUaCE/OSJECT) 
ItfTMOB/MOB/PRTMOB  (SOURCE) 

RDCNT  (SOURCE) 

MARC  NS  (SOURCE) 

_8HSCHL  (SOURCE) 


External 

PREAD 

WRITE 

LEAVE 


■Ingu.C.  FT09P001 


morooi 

PT 11 P001 
or 

PT12P001 


STSLT 


c 

{ 


{ 


STATE .MOB . RATES . HFWBO  . Y RXX-XY 
or 

RES  .MOBRATES  .STATE.MFVBO.YR  73 

ENRICH. STATE. PUS. YR70 
or 

STATE. ENRICH. POPS. TRXX 

STATE .  DEATHS  .  YRXmr 

DEATH. RATES. YEXX 
or 

RES.AVRC. DEATH. RATES. YR70-74 

3  data  cards _ 


Output  Piles: 
PT02F001  Intel 
PT04P001 
STSOLT 
PT08P001 
PT26P00I 
PT  2 1  POOl 
PT22P001 
PT20POOI 


tdiace  resul 


btiity  ratem  by  state, sea, race  4  age  0-24 
"  "  death  "  "  “  *  "  "  " 

"  "  growth . .  " 

“  "  projected  pope  "  "  "  "  "  " 

"  *  '—table  of  mobility  accessione/etate 

STATE.  CROVTH.  RATES.  TREE- XT. TRT3 
STATE . ENR I CH . POPS . TEXT 

DEATH. RATES .TREE  (used  only  when  STATE. DEATHS. TRXXXX  are  input) 


Go— nt : 


This  program  Is  run  for  every  year  «nicll  data  for  target  ye 
is  obtained.  See  flowcharts  for  logic  of  data  used  during 
Iterations  without  specific  data  emsilabl*. 
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FILE  DOCUMENTATION 


I 

I 


I 

I 

i 

I 


PROGRAM: 

P3-5  GR03 

FILE: 

SYS  IN 

LRECL:  80 

10  TYPE: 

INPUT 

BLKSIZE:  80 

FILE  TYPE: 

BCD 

RECFM:  FB 

DSN: 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 


Card  1 

1  -  80 

Card  2 

1  -  5 
6-10 


Card  3 
1  -  5 

6-10 

11  -  15 

16  -  20 


BCD 

4 


i 

I 


T 


TITLE 


YEAR  OF  INPUT  DATA 

TYPE  OF  MORTALITY  DATA  INPUT 

1  =  ACTUAL  NUMBER  OF  DEATHS 

ARE  INPUT 

2  =  DEATH  RATES  ARE  INPUT 

NUMBER  OF  COLUMNS  REPRESENTING 
AGE  IN  ARRAY 

NUMBER  OF  ROWS  REPRESENTING  RACE 
IN  ARRAY 

NUMBER  OF  SETS  REPRESENTING 
SEX  IN  ARRAY 

YEARS  OF  ORIGINAL  POPULATION 
DATA  BASE 
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f] 


1 


FILE  DOCUMENTATION 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE 
DSN: 


P3-5  GR03 
FT10F001 
INPUT 
BINARY 


LRECL:  112 

BLKSIZE:  4480 
RECFM:  FB 

ENRICH. STATE. PUS. YR70  or 

STATE . ENRI CH . POPS . YR  7 1 , . . . , STATE . ENRI CH . POPS . YR86 
Format  (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-4  INTEGER 


13  -  16 
17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 
45  -  48 
49  -  52 
53  -  56 
57  -  60 
61  -  64 
65  -  68 
69  -  72 
73  -  76 
77  -  80 
81  -  84 
85  -  88 
89  -  92 
93  -  96 
97  -  100 
101  -  104 
105  -  108 
109  -  112 


FIPS  STATE  CODE 

SEX  CODE  (1=MALE,  2=FEMALE) 

RACE  CODE  (1=WHITE,  2=BLACK,  3=  OTHER) 
POPULATION  COUNT  FOR  LT  1  YR  OLD 

FOR  1  YR  OLD 

2  A 

3  i 

4  ! 

5  ! 

6 

7  ! 

8  i 

9  I 
10 

11  ' 

12 

13 

I  14 

15 

16 

i  17  ' 

18 

19 

20 
21 
22 
23 
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FILE  DOCUMENTATION 


PROGRAM: 

P3-5  GR03 

FILE: 

FT11F001 

LRECL: 

48 

10  TYPE: 

INPUT 

BLKSIZE: 

7200 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN:  STATE. DEATHS. YR1970, STATE. DEATHS. YR1972, STATE. DEATHS. YR1974 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-4 
5-8 
9-12 
13  -  16 
17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 
45  -  48 


INTEGER 

A 


FIPS  STATE  CODE 

SEX  CODE  (1=MALE,  2-FEMALE) 

RACE  CODE  (1=WHITE,2=BLACK,3=0THER) 
NUMBER  OF  DEATHS  FOR  AGE  LT  1  YR 

FOR  AGE  1  YR 
2  n 

3 

4 

5-9 

10-14 

15-19 

T  20-24  ? 


FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 


P3-5  GR03 
FT12F001 
INPUT 
BINARY 


LRECL: 

BLKSIZE: 

RECFM: 


112 

4480 

FB 


DSN: 


DEATH .RATES . YR70 , DEATH . RATES . YR7  2 , DEATH . RATES . YR74 


Column 


Format (EBCDIC) 

Data  Type (Binary)  Data  Description 


1 

- 

4 

INTEGER 

5 

_ 

8 

INTEGER 

9. 

— 

12 

INTEGER 

13 

- 

16 

REAL 

17 

- 

20 

A 

21 

- 

24 

•• 

* 

25 

- 

28 

29 

- 

32 

33 

- 

36 

| 

37 

- 

40 

41 

- 

44 

45 

- 

48 

• 

49 

- 

52 

53 

- 

56 

57 

- 

60 

61 

- 

64 

65 

- 

68 

69 

- 

72 

73 

- 

76 

77 

- 

80 

81 

- 

84 

85 

- 

88 

89 

- 

92 

93 

- 

96 

97 

- 

100 

101 

- 

104 

105 

- 

108 

109 

- 

112 

T 

FIPS  STATE  CODE 

SEX  CODE  (1=MALE, 2= FEMALE) 

RACE  CODE  ( 1=WHITE , 2= BLACK, 3=OTHER) 
DEATH  RATE  FOR  LT  1  YR  OLD 
A  FOR  1  YR 

2  4. 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

T  24  T 
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FILE  DOCUMENTATION 


I 

i 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P3-5  GR03 
FT20F00 1 
OUTPUT 
BINARY 


LRECL:  112 

BLKSIZE :  4480 

RECFM:  FB 

DEATH . RATES . YR70 , DEATH . RATES . YR72 , DEATH . RATES . YR74 


Format (EBCDIC) 

Column  Data  Type (Binary) 


1 

- 

4 

INTEGER 

5 

- 

8 

INTEGER 

9 

- 

12 

INTEGER 

13 

- 

16 

REAL 

17 

- 

20 

i 

21 

- 

24 

25 

- 

28 

29 

- 

32 

33 

- 

36 

37 

- 

40 

41 

- 

44 

45 

- 

48 

49 

- 

52 

53 

- 

56 

57 

- 

60 

61 

- 

64 

65 

- 

68 

69 

- 

72 

f 

73 

- 

76 

1 

77 

- 

80 

81 

- 

84 

85 

- 

88 

89 

- 

92 

93 

- 

96 

97 

- 

100 

101 

- 

104 

105 

- 

108 

109 

- 

112 

T 

Data  Description 

FIPS  STATE  CODE 

SEX  CODE  (1=MALE,  2 “FEMALE) 

RACE  CODE  ( 1=WHITE ,  2= BLACK,  3=0THER) 
DEATH  RATE  FOR  LT  1  YR  OLD 
4  FOR  1  YR  OLD 

i 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
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FILE  DOCUMENTATION 


I 


PROGRAM: 

P3-5  GR03 

FILE: 

FT21F001 

LRECL: 

44 

10  TYPE: 

OUTPUT 

BLKSIZE: 

2640 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN :  STATE . GROWTH . RATES . YR74- 75 . TRY 3 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1 

- 

4 

INTEGER 

5 

- 

8 

INTEGER 

9 

- 

12 

INTEGER 

13 

- 

16 

REAL 

17 

- 

20 

A 

21 

- 

24 

i 

25 

- 

28 

29 

- 

32 

. 

33 

- 

36 

37 

- 

40 

41 

_ 

44 

7 

FIPS  STATE  CODE 

SEX  CODE  (1=MALE,2=FEMALE) 

RACE  CODE  (l=WHITE,2=BLACK,3=OTHER) 
GROWTH  RATE  FOR  17  YR  OLD 

A  18  A 

19 

20 
21 
22 
23 

7  24  y 
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FILE  DOCUMENTATION 


PROGRAM: 

P3-5  GR03 

FILE: 

FT22F00  1 

LRECL : 

112 

10  TYPE: 

OUTPUT 

BLKSIZE: 

4  A  80 

FILE  TYPE: 

BINARY 

RECFM: 

FB 

DSN:  STATE. ENRICH. POPS. YR 71,... 

.STATE. ENRICH 

.POPS 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1 

- 

4 

INTEGER 

FIPS  STATE  CODE 

5 

- 

8 

SEX  CODE  (1=MALE, 2= FEMALE) 

9. 

- 

12 

RACE  CODE  (l=WHITE,2=BLACK,3=OTHER) 

13 

- 

16 

POPULATION  COUNT  FOR  LT  1 

YR 

OLD 

17 

- 

20 

i  FOR  1 

1  2 

YR 

OLD 

21 

- 

24 

j 

25 

- 

28 

3 

I* 

29 

- 

32 

4 

33 

- 

36 

5 

37 

- 

40 

6 

41 

- 

44 

7 

45 

- 

48 

8 

49 

- 

52 

1  9 

53 

- 

56 

10 

57 

- 

60 

11 

61 

- 

64 

12 

65 

- 

68 

13 

69 

- 

72 

14 

73 

- 

76 

15 

77 

- 

80 

16 

81 

- 

84 

17 

85 

- 

88 

18 

89 

- 

92 

19 

93 

- 

96 

20 

97 

- 

100 

21 

101 

- 

104 

22 

105 

- 

108 

23 

109 

- 

112 

J 

y  24 

2-89 


:  IBM  370/HASP 

1 

Language:  FORTRAN  G 

1 

Estimated  Requirements : 
Core:  96K 
CPU  T ime :  15  sec 

Print  Lines:  620 


Tape  Drives:  2 
Disk  Drives:  i 


Subroutine  name/entry/entry. . 

Internal  (SOURCE/OBJECT)  External 

FREAD/FWRITE/LEAVE 


Input  Files: 


FT11F001 

DEATH. RATES. YR70 
"  "  YR72 

"  "  YR74 


Output  Files: 

FT20F001 

AV . DEATH . RATES . STATE . YR7  0- 74 
FT21F001 

RES . AVRG . DEATH . RATES . YR70- 74 
SYSOUT 

INTERMEDIATE  RESULTS  -  LIST  OF  AVERAGE  DEATH  RATES  BY  STATE,  SEX 
RACE,  AND  AGE  0-24 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE 


P3-6  AV.MORT 
FT11F001 
INPUT 
BINARY 


LRECL:  112 

BLKSIZE:  4480 

RECFM:  FB 

DSN :  DEATH . RATES . YR70 , DEATH .  RATES . YR72 , DEATH . RATES . YR74 


Column 


Format (EBCDIC) 

Data  Type(Blnary)  Data  Description 


1-4 

3-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 

77-80 

81-84 

85-88 

88-92 

93-96 

97-100 

101-104 

105-108 

109-112 


INTEGER 

t 

INTEGER 

REAL 


REAL 


FIPS  STATE  CODE 
SEX  CODE (1-MALE,  2-FEMALE) 
RACE  C0DE(1=WHITE,  2-BLACK 
3-OTHER) 

DEATH  RATE  FOR  LT  1 YR  OLD 


A  A 


V 


FOR 

A 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


YR  OLD 
YR  | 

A  I 


DEATH  RATE  FOR  24  YR  OLD 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE 
DSN:  AV 


P3-6  AV.MORT 
FT20F001 
OUTPUT 
:  BINARY 

.  DEATH . RATES . STATE . YR  7  0- 7  4 


LRECL: 

BLKSIZE: 

RECFM: 


112 

4480 

FB 


Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1-4 

INTEGER 

FIPS  STATE  CODE 

5-8 

l 

SEX  CODE (1-MALE,  ! 

9-12 

INTEGER 

*  RACE  CODE (1-WHITE 

3-OTHER) 

13-16 

REAL 

DEATH  RATE  FOR  LT 

17-20 

4 

*  A  FOR  1  ' 

21-24 

/ 

P  2  ' 

25-28 

i 

1  3 

29-32 

4 

33-36 

5 

37-40 

6 

41-44 

• 

7 

45-48 

8 

49-52 

. 

9 

53-56 

10 

57-60 

1  11 

61-64 

!  12 

65-68 

i 

! 

1  13 

69-72 

14 

73-76 

15 

77-80 

16 

81-84 

17 

85-88 

18 

89-92 

19 

93-96 

i 

20 

97-100 

; 

21 

101-104 

22 

105-108 

\ 

t 

1 

,  V 

,  23 

109-112 

REAL 

DEATH  RATE  FOR  24  ’ 

2-FEMALE) 

,  2-BLACK, 

1  YR  OLD 

YR  OU 

YR  ■ 

A. 


I 

V 
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FILE  DOCUMENTATION 


PROGRAM:  P3-6  AV.MORT 

FILE:  FT21F001  LRECL:  112 

10  TYPE:  OUTPUT  BLKSIZE:  4480 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN:  RES. AVRG. DEATH. RATES. YR70- 74 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-4  INTEGER 

5-8  $ 

9-12  INTEGER 


13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 

77-80 

81-84 

85-88 

89-92 

93-96 

97-100 

101-104 

105-108 

109-112 


FIPS  STATE  CODE 
SEX  CODE  (1-MALE,  2-FEMALE) 
RACE  CODE  (1-WHITE,  2-BLACK, 
’’-OTHER) 
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CUMULATIVE  $TA*t 


Program  mm;  CfMCHO. STATS 


Program  10:  pj-7 


i 


This  prograa  creates  a  cuaulactva  growth  rata  by  atata,  sea,  raca  and 
agoa  17-24  yaara.  Using  1970-71  growth  ratea  aa  tha  baaa,  accuaulatlon 
by  multiplication  la  carried  out  until  growth  ratea  for  the  target  year 
have  been  incorporated.  Printing  of  Intermediate  reaulta  nay  be  by- 
P«aaad.  Pinal  cumulative  growth  ratea  for  1970-19YY  ara  Hated. 


_ _ _ 

Author:  Allaon  Crewa 

Coaputer/OS:  IBM  370/Haap 

Language:  FORTRAN  C 

Estimated  Requlreaents: 

Cora:  96  Tapa  Dr leas:  2 
CPU  Tina:  25  aeconda  Disk  Drives:  1 
Print  Linas:  615  lines/year 


Subroutine  nano/ entry /entry. . 

Internal  (SOCXCE/OBJECT)  External 

FXEAD/ LEAVE/ FVRITE 


Input  Piles: 

STSIH 

ptiopooi  cxovra.yit70-7i.nri 
FT11P001  CX0VTH.TK7 1-72. TXT1 

I 

FT20P001  CX0VTM.TXXZ-TT.mi 


Output  Piles: 

PT  2 1  POO  I  CX0vra.TX70-72.mt 
PT22P001  CXOVTK.TX 70-73. mi 


PT31F001  CX0Vra.n7O-TT.mi 

CoMent:  As  JCL  Is  now  sat  up,  accunulst  loan  only  through  19X1 
can  bo  dono.  If  aore  accuaulat Iona  ara  daalrad  the  Input,  output 
DO  Mat  bo  changed,  bearing  la  alnd  that  FXEAD,  M1T1,  ate.,  do 
not  recognise  file  nano#  grantor  than  FT49. 

_  2-95  _ 


FILE  DOCUMENTATION 


PROGRAM:  P3-7  CUMGRO. STATE 

FILE:  FT05F001  LRECL:  80 
10  TYPE:  INPUT  BLKSIZE:  80 
FILE  TYPE:  BCD  recfM:  pB 
DSN: 


Format (EBCDIC) 

Column  Data  Type (Binary) 

Card  1 

1-5  15 

6-10  15 

Card  2  through  ITIM 

1-5  15 

6-10  15 

11  -  15  15 

16  -  20  15 

21  -  25  15 


Data  Description 

ITIM  -  TOTAL  NUMBER  OF  YEARS  OF  DATA 
TO  BE  ACCUMULATED  PAST  BASE  FILE 
IYR  -  YEAR  OF  BASE  DATA 

NOW  -  INDEX  FOR  NTH  SET  OF  DATA 
ADDED  TO  ORIGINAL  BASE.  THE  FIRST 
FILE  ADDED  HAS  NOW  -  2 
IFLE  -  FILE  NUMBER  OF  TAPE  INPUT 
FILE  FOR  THIS  ACCUMULATION. 

NFLE  -  FILE  NUMBER  OF  TAPE  OUTPUT 
FILE  FOR  THIS  ACCUMULATION 
IPRSW  -  PRINT  SWITCH  FOR  GROWTH  RATE 
ACCUMULATION  THUS  FAR 

1  -  PRINT  DONE 

2  -  PRINT  BYPASSED 
IWRTSW  -  TAPE  WRITE  SWITCI 
GROWTH  RATE  ACCUMULATION  THI:,  FAR 

1  -  TAPE  WRITE  DONE 

2  -  TAPE  WRITE  BYPASSED 
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FILE  DOCUMENTATION 
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FILE  DOCUMENTATION 


PROGRAM:  P3-7  CUMGRO. STATE 

FILE:  FT21F001, . FTZZFOOl  LRECL:  44 

10  TYPE:  OUTPUT  BLKSIZE:  2640 

FILE  TYPE:  BINARY  recFM:  fb 

DSN:  GROWTH . YR  7 O-YY . TRY  1 

Format (EBCDIC) 

Columa  Data  Type(Binary)  Data  Description 


1  -  4 

INTEGER 

5-8 

INTEGER 

9-12 

INTEGER 

13  -  16 

REAL 

17  -  20 
21  -  24 
25  -  28 
29  -  32 
33  -  36 
37  -  40 
41  -  44 


FIPS  STATE  CODE 

SEX  CODE  (1-MALE,  2-FEMALE) 

RACE  CODE  (1-WHITE,  2-BLACK,  3-OTHER) 
GROWTH  RATE  FOR  17  YR  OLD 
18 

19 

20 
21 
22 

23 

24 
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2-100 


I 


I 


FILE  DOCUMENTATION 


PROGRAM:  PA-1  GROWCG 

FILE:  FT09F001 

LRECL :  140 

10  TYPE:  INPUT 

BUCSIZE:  7°0° 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

'  STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)NAME 

63-66 

14 

BTA  CODE 

67-70 

A4  • 

TRADING  AREA  (TA)  «BBR 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

• 

FILLER 

123-140 

18A1 

COUNTY  NAME 

FILE  DOCUMENTATION 


PROGRAM:  P4-1  GROWCG 
FILE:  FT10F001 

10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  RES.CTY.CTYGRP 


LRECL:  80 

BLKSIZE:  7200 
RECFM:  FB 


Format (EBCDIC) 

Column  Data  Type (Binary) 

1-70  5(3X,I5,1X,I5) 

e-g- 

1-3 

4-8 

9 

10-14 


Data  Description 

COUNTY-COUNTY  GROUP  MAPPINGS 
(MAXIMUM  OF  5  PER  CARD) 

FILLER 
COUNTY  CODE 
FILLER 

COUNTY  GROUP  CODE 


FILE  DOCUMENTATION 


PROGRAM:  P4-1  GROWCG 

FILE:  FT11F001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 

DSN:  GROWTH.  YR70-86.TRY1 


LRECL:  44 

BLKSIZE:  2640 

RECFM:  FB 


FILE  DOCUMENTATION 


PROGRAM:  P4-1  GROWCG 


FILE:  FT20F001 

LRECL : 

44 

10  TYPE:  OUTPUT 

BLKSIZE: 

2640 

FILE  TYPE:  BINARY 

RECFM: 

FB 

DSN:  CTY. GRP. GROWTH. 

.  YR70-86.TRY1 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-4 

INTEGER 

COUNTY  GROUP  CODE 

5-8 

INTEGER 

SEX  CODE  (1-MALE,  2-FEMALE) 

9-12 

INTEGER 

RACE  CODE  (1-WHITE,  2-BLACK, 
3-OTHER) 

13-16 

REAL 

GROWTH  RATE  FOR  17-YR. 

17-20 

t 

18 

1 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 


REAL 


19 

20 
21 
22 

23 

24 
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Program  name:  APLYCR 

Program  ID:  I,/i-2 

Purpose:  Tills  program  applies  the  county  group  cumulatli 
growth  rates  to  the  base  population  to  give  the 
projected  population. 

/u 

Author:  Unknown 

Comouter/OS:  IBM  370/HASP 

Language:  FORTRAN  G 

Estimated  Requirements: 


Core:  100  K  Tape  Drives:  3 

CPU  Time:  2  minutes  Disk  Drives:  1 

Print  Lines:  1000 

Subroutine  name/entry /entry.  . 

Internal  (SOURCE/OBJECT)  External 

GRWTH ( SOURCE )  FREAD 

FWRITE 


Input  Files: 

FT09F001 

FT10F001 

SYSIN 


CTY .GR? .GROWTH .YR70-86 .TRY1 
CTYGRP . POP . YR70 . COMP 
TITLE  CARD 


Output  Files: 

FT20F001  CTYCRP.POP.YR86.TRY1 

SYSOUT  This  file  lists  summary  data  for  the  run  including 

the  number  of  records  for  each  county  group,  the  number 
of  records  read,  the  number  of  records  written,  input 
population,  and  minimum  weight. 
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FILE  DOCUMENTATION 


PROGRAM: P4-2  APLYGR 

FILE:  FT09F001 

10  TYPE:  INPUT 

FILE  TYPE:  BINARY 

DSN:  CTY. GRP. GROWTH. YR70-86.TRY1 


LRECL :  44 

BLKSIZE:  2640 
RECFM:  FB 


Column 

Format (EBCDIC) 
Data  Type (Binary) 

1-4 

INTEGER 

5-8 

INTEGER 

9-12 

INTEGER 

13-16 

REAL 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

' 

REAL 

Data  Description 
COUNTY  GROUP  CODE 
SEX  CODE  (1-MALE,  2-FEMALE) 

RACE  CODE  (1-WHITE, 2-BLACK,  3-OTH) 
GROWTH  RATE  FOR  17  YEAR 


FILE  DOCUMENTATION 


PROGRAM: p4_2  APLYGR 
FILE:  FT10F001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 
DSN:  CTYGRP.P0P.YR70.TRY1 


LRECL:  40 
BLKSIZE:  7200 
RECFM:  PB 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Format  (EBCDIC) 
Data  Type (Binary) 

INTEGER 


INTEGER 

REAL 


Data  Description 
REGION  CODE 
SEX  CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED 
SAMPLE  (5%  or  15%) 

FILLER 

INCOME  (#  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM:  P4-2  APLYGR 

FILE:  FT20F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN  :  CTGGRP . POP . YR86 . TRY1 


LRECL:  40 
BLKSIZE:  7200 
RECFM:  FB 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Format  (EBCDIC) 
Data  Type (Binary) 

INTEGER 


INTEGER 

REAL 


Data  Description 
REGION  CODE 
SEX  CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INS ITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 

EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  or  15%) 

FILLER 

INCOME (#  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 
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VETERANS  ADJUSTMENT 


Program  ID:  l">- 1 


Program  name  :I  1-SL'UV  .ADJUST 


i  Purpose : 

This  program  extracts  counts  lor  insorvico,  veteran,  anil  other  liy 
:  1'imnCy  group,  r act*,  iikI  sex.  The  ruuiiLs  are  wr  i Ken  on  tape  arul  a 
summary  table  is  also  printed  lor  reference. 


Author:  Unknown 


i Comouter/OS:  IBM  370/ilASP 


Language :  FORTRAN  G 


Estimated  Requirements : 


I  Core:  100K 


Tape  Drives:  2 


I  CPU  Time:  1  MIN 


Disk  Drives:  1 


Print  Lines:  »1000 


Subroutine  name/entry/entrv . 


Internal  (SOCRCE/OBJECT) 


Input  Files: 


External 

FREAD 

FWRITE 

LEAVE 


FT10F001  CTYGRP.POP. YR36.TRY1 


Cutout  Files: 

FT20F001  INSERV . VET . OTHER . YR86 . TRY1 


SYSOUT  SUMMARY  FILE 
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I 


FILE  DOCUMENTATION 


PROGRAM:p5~l  IN-SERV 

.ADJUST 

FILE:  FTlOFOOl 

LRECL:  40 

10  TYPE:  INPUT 

BLKSIZE:  7200 

FILE  TYPE:  BINARY 

RECFM:  FB 

CTYGRP .  POP .  YR86 . 

TRY1 

Format  (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1-2 

int: 

EGER 

REGION  CODE 

3-4 

SEX  CODE 

5-6 

RACE  CODE 

7-8 

AGE  CODE 

9-10 

HIGHEST  GRADE  COMPLETED 

11-12 

IN  SCHOOL  CODE 

13-14 

INSTITUTIONALIZED  CODE 

15-16 

IN  MILITARY  CODE 

17-18 

* 

VETERAN  CODE 

19-20 

EMPLOYED/UNEMPLOYED  CODE 

21-22 

SAMPLE  (5%  OR  15Z) 

23-24 

FILLER 

25-28 

INCOME  (//  WHO  HAD  INCOME) 

29-32 

INCOME  (AMOUNT  OF  INCOME) 

33-36 

INTEGER 

COUNT 

37-40 

REAL 

WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM:1*5-1  INSERV.  ADJUST 

FILE:  FT20F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN;  INSERV. VET. OTHER. YR8 6. TRY1 


LRECL:  76 
BLKSIZE:  7600 
RECFM:  FB 


Column 

1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


Format (EBCDIC) 

Data  Type(Binary)  Data  Description 

INTEGER  REGION  CODE 

REAL  COUNTS  INSERVICE  MALE  WHITE 

BLACK 
OTHER 
FEMALE  WHITE 
BLACK 
OTHER 

VETS  MALE  WHITE 

BLACK 
OTHER 
FEMALE  WHITE 
BLACK 
OTHER 

OTHER  MALE  WHITE 

BLACK 
OTHER 
FEMALE  WHITE 
BLACK 

REAL  OTHER 
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Prograa  im 


ADJUST. VETS 


Prograa  ID:  PS-2 


Purpoao: 


Thla  prograa  converts  state  marginals  to  fit  county  groups.  It  adjusts 
current  population  to  fit  eeveral  aarglnals.  Finally,  it  coaputes  adjust  - 
aent  factors  for  each  county  group.  The  printed  output  Includes  the 
adjusted  ln-servlce  totals  by  state,  s  unwary  froa  the  asrglnal  adjustment 
routine,  and  finally,  a  table  of  the  counts  for  ln-servlce,  veterans,  ami 
other,  both  before  and  after  adjuetaent  by  race,  sea,  and  county  group. 


Author:  Unknown 

Cooputer/OS:  IBM  370/HASP 

Language:  FORTRAN  0 

Estimated  Requirements: 

Core:  100JC 

Tap#  Drives:  2 

CPU  Tlae:  2  MIN 

Disk  Drives:  j 

Prime  Lines:  4000 

Subroutine  name/entry/entry. 

Internal  (SOURCE/OBJECT) 

RDCNTY (SOURCE) 

ADJtaC  (SOURCE) 

IMITCP/CPOPSC/PRTCP (SOURCE) 

External 

LI  ST I  REWIND 

BMSCta  FWRITE 

SORT'D!  LEAVE 

FREAD 

Input  Piles: 

PT09P001 
PTIOPOOI 
FTUF001 
PT1 27001 
STS IN 


COUNTY. INFO. PILE 
RES. CTT  .CTYCRP 
CARD  INPUT 
INSERV. VET. OTHER 
TITLE  CARD 


(hit put  Files; 

FT20P001  CTYCRP. INSOIV. VET. FACTOR. YR86.TRY1 

PT21F001  ERROR  MESSAGES  FROM  INITCP(PRIMT  FILE) 
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FILE  DOCUMENTATION 


PROGRAM: p5-2  ADJUST. VETS 
FILE:  FT09F001 
10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN :  COUNTY . INFO . FILE 


LRECL:  140 
BLKSIZE:  7000 
RECFM:  FB 


Column 

Format (EBCDIC) 
Data  Type (Binary) 

1-2 

2X 

3-4 

12 

5-21 

17A1 

22-23 

A2 

24-27 

4X 

28-30 

13 

31-62 

32A1 

63-66 

14 

67-70 

A4 

71-72 

2X 

73-75 

13 

76-85 

110 

86-87 

2X 

88-94 

17 

95-103 

18 

104-112 

19 

113-120 

F8.2 

121-122 

2X 

123-140 

18A1 

Data  Description 
FILLER 

FIPS  STATE  CODE 
STATE  NAME 
STATE  ABBREVIATION 
FILLER 

COUNTY  FIPS  CODE 

BASIC  TRAINING  AREA  (BTA)  NAME 

BTA  CODE 

TRADING  AREA  (TA)  ABBREVIATION 
FILLER 

MAJOR  TRADING  AREA  (MTA)  CODE 
POPULATION  COUNTS  (TOTAL) 
FILLER 

POPULATION  COUNTS  (BLACK) 

LAND  AREA 

QMA  POPULATION 

POPULATION  DENSITY 

FILLER 

COUNTY  NAME 
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FILE  DOCUMENTATION 


PROGRAM:P5-2  ADJUST. VETS 

FILE:  FTl°F0°i 

10  TYPE:  INPUT 

FILE  TYPE:  EBCDIC 
DSN.  RES . CTY . CTYGRP 


LRECL:  80 
BLKSIZE:  7200 
RECFM:  FB 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-70 

5(3X,I5,1X,I5) 

COUNTY-COUNTY  GROUP 

e-g. 

MAPPINGS  (MAXIMUM  OF  5  PER  CARD) 

1-3 

FILLER 

4-8 

COUNTY  CODE 

9 

FILLER 

10-14 

COUNTY  GROUP  CODE 

FILE  DOCUMENTATION 


FILE  DOCUMENTATION 


PROGRAM: P5-2  ADJUST. VETS 

FILE:  FT12F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN;  INSERV. VET. OTHER. YR86.TRY1 


LRECL:  76 
BLKSIZE:  7600 
RECFM:  FB 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


Data  Description 


1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 

REAL 


REAL 


REGION  CODE 
COUNTS  INSERVICE 


1 

VETS 


t 

OTHER 


FEMALE 


MALE 

I 

FEMALE 


MALE 


WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 
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FILE  DOCUMENTATION 


PROGRAM :P 5-2  AD  JUST. VETS 
FILE:  FT20F001 
10  TYPE:  0UTPUT 
FILE  TYPE:  BINARY 


LRECL:  76 
BLKSIZE:  7600 
RECFM:  PB 


DSN :  CTYGRP . INSERV . VET . FACTOR. YR86 . TRY1 


Column 

1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


Format (EBCDIC) 

Data  Type (Binary)  Data  Description 

INTEGER  REGION  CODE 

WHITE 
BLACK 
OTHER 
WHITE 
BLACK 
OTHER 
WHITE 
BLACK 
OTHER 
FEMALE  WHITE 
BLACK 

?  Y  OTHER 

OTHER  MALE  WHITE 

'black 

T  OTHER 

FEMALE  WHITE 

I 

j  i  BLACK 

REAL  T  V  ?  i  OTHER 

% 


REAL 


ADJ.  FACTOR  INSERV  MALE 


7 

FEMALE 


VET  MALE 
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Prograa  niu:  APPLY. IN-SERV. FACTORS 


Prograa  10:  PJ-J 


Purpose: 

Thla  prograa  appllaa  tha  vacaraa  and  In-service  adjuataenta  to  tha 
40  charactar  record. 


Author :  Unknown 

Coaputar/OS:  IBM  370/HASP 

Estimated  Requlrenenta: 
Coro:  100K 

CPU  Tlaa:  2  MIN 


I 


Language:  FORTRAN  C 


Tape  Orlvaa:  3 
Disk  Orlvaa:  1 


Print  Llnaa:  1000 


Subroucloa  name /entry /entry. . 

Internal  (SOURCE /OBJECT)  External 

ADJUST  (SOURCED  PRZAD 

FVRITE 

LEAVE 


Input  rilaa: 


rriorooi 

PT09P001 
STS  IN 


CTYCRP.P0P.YR86.TRY1 

CTYCRP . INSERV . VET. FACTOR . YR86. TRY1 

TITLE  CARO 


(hitput  flloa: 

PT20P001  CTTCRP.POP.ADJ.TR86.TRY1 


FILE  DOCUMENTATION 


PROGRAM:  P5_ 3  APPLY. IN-SERV. FACTORS 


FILE:  FT09F001 

LRECL: 

76 

10  TYPE:  INPUT 

BLKSIZE: 

7600 

FILE  TYPE: BINARY 

RECFM: 

FB 

DSN :  CTYGRP . INSERV . VET . FACTOR .YR86.TRY1 


Column 

1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 

REAL 


REAL 


Data  Description 
REGION  CODE 

ADJ.  FACTOR  INSERV  MALE 


FEMALE 


♦  t 


i 


VET  MALE 


I 


FEMALE 


t 


OTHER  MALE 


FEMALE 

V 


WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 
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FILE  DOCUMENTATION 


PROGRAM:  P5_3  APPLY. IN-SERV. FACTORS 
FILE:  FT10F001  LRECL:  40 

10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN:  CTYGRP .POP.YR86.TRY1 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 


INTEGER 

REAL 


Data  Description 
REGION  CODE 

SEX  CODE 

RACE  CODE 

AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 

INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 

VETERAN  CODE 

EMPLOYED /UNEMPLOYED  CODE 
SAMPLE  (52  OR  15%) 

FILLER 

INCOME  (#  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 
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FILE  DOCUMENTATION 


PROGRAM:  P5-3  APPLY. IN-SERV. FACTORS 

FILE:  FT20F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN:  CTYGRP . POP . AD J . YR86 . TRY 1 


LRECL:  40 
BLKSIZE:  7200 
RECFM:  FB 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 


INTEGER 

REAL 


Data  Description 
REGION  CODE 
SEX  CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  OR  151) 

FILLER 

INCOME  (#  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 
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Program  name:  CTYCRP. TH-SERV. FACTORS 


Progr am  ID:  P5-4 


Purpoee:  ThU  Program  extracts  chs  county  group  population  count 

for  in-#ervtc*/vatarao. 


Author:  UNXNOWN 


Conpucsr/OS:  ISM  370/HASP 


Eac lasted  Requirements: 
Corn:  100  K 


i 

I 


Language:  FORTRAN  C 


Tapn  Drives:  2 


CPU  Tiao:  1  alnutn 


Disk  Driven:  l 


Print  Liana:  1000 

Subroutlnn  naaa/aatry/antry. . . 

Internal  (SOURCE/OBJECT)  External 

NONE  TREAD 

WRITE 

LEAVE 


Input  Ftlnn: 

PT10F001  CTYCRP.POP.ADI.TtE6.TRTl 

STS  IN  TITLE  CARD 


Output  Piles: 


PT20P001  IKSERV.VCT.TRS6.TRTl 


FILE  DOCUMENTATION 


PROGRAM: P5_4  CTYGRP . INSERV . FACTORS 

FILE:  FTlOFOOl 

10  TYPE:  INPUT 

FILE  TYPE:  BINARY 

DSN:  CTYGRP. POP. ADJ.YR86.TRY1 


LRECL:  40 
BLKSIZE:  7200 
RECFM:  FB 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 


INTEGER 

REAL 


Data  Description 
REGION  CODE 

SEX  CODE 

RACE  CODE 

AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  OR  15%) 

FILLER 

INCOME  (//  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 


# 
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FILE  DOCUMENTATION 


PROGRAM:  P  5- 4  CTYGRP . INSERV . FACTORS 

FILE:  FT20F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN:  INSERV. VET. YR86.TRY1 


LRECL:  36 
BLKSIZE:  7200 
RECFM:  FB 


Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1-4 

INTEGER 

COUNTY 

group  : 

ID 

5-8 

RE 

AL 

MApS 

WHITE 

i 

TOTAL 

9-12 

T 

INSERV/VET 

13-16 

BLACK 

TOTAL 

17-20 

1 

INSERV/VET 

21-24 

OTHER 

TOTAL 

25-28 

1 

INSERV/VET 

29-32 

FEMALE 

1 

TOTAL 

33-36 

REAL 

i 

r 

i 

INSERV/VET 
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Program  no*: 


Purpoae: 


RECION.PITNESS.TO.CC. FITNESS 


Program  ID: 


P5-J 


This  program  wight*  regional  fltnea*  proportion*  to  give  county-group 
proportion*.  Two  *«c*  of  data  *r*  printed  for  reference*;  -firat,  *  table 
of  count*  by  county  group  and  race,  then  a  table  of  county  group  fltneaa 
proportion*  by  race  for  oalea  and  total  female*. 


! 


Author:  Unknown 

1 

Computer /OS:  ibm  370/HASP 

Language:  FORTRAN  C 

1 

Eat  Isa  ted  Requirements: 

Cora:  125K  Tap*  Drive*:  j 

CPU  Time:  1  MIN  Dl*k  Drive*:  i  (2314) 

Print  Line*:  4000 


Subroutine  name /entry/ entry. . 


Internal  (SOURCE/OBJECT) 
INITCP/CPOPSC/PRTCPfS)  NYREC(S) 


RDCNTT(S)  MIREC(S) 
OHREC(S)  CAREG(S) 
PAREC(S)  lUtEC(S) 


UAREC(S) 

MAR EC (S) 
TXREC(S) 

UPDATE/ RECALL(S) 


External 

LIST!  I  FWRITE 
FREAD  DREAD 
RMSCMIT  D WRITE 
LEAVE 


Input  File*: 


FT09F001  '  C0UNTT. INFO. FILE 

FT10F001  RES.CTT.CTTGRP 

FT11F001  FITNESS. YR72T073.TRY1 

FT12F001  INSERV.VET.YRa6.TRYl 

FT49F001  TEMPORARY  RANDOM  ACCESS  FILE 


Output  File*: 


FT2IF00I  ERROR  KESSACE  FOR  INITCP 

FT20F001  CnCRP. FITNESS. YR86 
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FILE  DOCUMENTATION 


PROGRAM:  P5-5  REGION. FITNESS  .TO. CO  .FITNESS 


FILE:  FT09F001 

LRECL:  140 

10  TYPE:  INPUT 

BLKSIZE:  7000 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN;  COUNTY. INFO. FILE 

Format.  (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

FILLER 

123-140 

18A1 

COUNTY  NAME 
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FILE  DOCUMENTATION 


PROGRAM:  P5“5  REGION. FITNESS. TO. CG. FITNESS 
FILE:  FT10F001  LRECL:  8Q 

10  TYPE:  INPUT  BLKSIZE:  7200 

ptt  p  'W'dv  .  EBCDIC  .. 

FILE  TYPE:  RECFM:  FB 

DSN.  RES . CTY . CTY  GRP 


Column 

1-70 

e.g. 

1-3- 

4-8 

9 

10-14 


Format (EBCDIC) 
Data  Type (Binary) 

5 (3X, 15, IX, 15) 


Data  Description 

COUNTY -COUNTY  GROUP  MAPPINGS 
(MAXIMUM  OF  5  PER  CARD) 

FILLER 
COUNTY  CODE 
FILLER 

COUNTY  GROUP  CODE 
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V' 


FILE  DOCUMENTATION 


PROGRAM:  P5-5  REGION. FITNESS .TO. CG. FITNESS 


FILE:  FTllFOOl 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 
DSN:  FITNESS .YR72T073. TRY1 


LRECL:  136 
BLKSIZE:  2720 
RECFM:  FB 


Column 

1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 

77-80 

81-84 

85-88 

89-92 

93-96 

97-100 

101-104 

105-108 

109-112 

113-116 

117-120 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 

INTEGER 

REAL 


REAL 


Data  Description 
STATE  CODE 
STATE  ABBREVIATION 
WHITE  MALES  CAT  1 
2 

3 

4 

5 

6 
7 

PHYS  UNFIT 
BLACK  MALES  CAT  1 

2 

3 

4 

5 

6 
7 

PHYS  UNFIT 
OTHER  MALES  CAT  1 

2 

3 

4 

5 

6 
7 

PHYS  UNFIT 
FEMALES  CAT  1 
2 

3 

4 


(CONT) 
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PROGRAM: 

P5-5  continued 

FILE: 

FT11F001 

Column 

Format (EBCDIC) 

Date  Type  (Binary) 

Data  Description 

121-124 

REAL 

MEN. CAT.  5 

125-128 

6 

129-132 

*  7 

133-136 

REAL 

PHYS  UNFIT 

FILE  DOCUMENTATION 


» 


PROGRAM:  p5_5  REGION. FITNESS. TO. CG. FITNESS 


FILE:  FT12FOOI 

10  TYPE:  INPUT 

FILE  TYPE:  B1NARY 

DSN:  INSERV.VET.YR86.TRY1 


LRECL:  36 
BLKSIZE:  7200 
RECFM:  PB 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-4 

INTEGER 

COUNTY 

GROUP  ID 

5-8 

REAL 

MALES 

WHITE  TOTAL 

1 

9-12 

T  INSERV/VET 

13-16 

BLACK  TOTAL 

17-20 

^  INSERV/VET 

21-24 

OTHER  TOTAL 

25-28 

r 

|  INSERV/VET 

29-32 

1  — 

FEMALE 

TOTAL 

33-36 

REAL 

F 

INSERV/VET 

FILE  DOCUMENTATION 


PROGRAM:p5-5  REGION . FITNESS . TO . CG . FITNESS 
FILE:  FT20F001 


Tfi  tvpf  •  OUTPUT  _,/r. 

10  TYPE.  BLKSIZE: 2640 


FILE  TYPE: 


BINARY 


LRECL:  132 
BLKSIZE: 2 
RECFM:FB 


DSN:  CTYGRP. FITNESS .YR 86. TRY1 


Column 

1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

Z3-76 

77-80 

81-84 

85-88 

89-92 

93-96 

97-100 

101-104 

105-108 

109-112 

113-116 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 

REAL 

A 


Data  Description 
COUNTY  GROUP  CODE 
RATE  FOR  MALE  WHITE 


REAL 


i 

i 


I 


7 


FEMALE 


CAT  1 
2 

3 

4 

5 

6 
7 

UNFIT 
BLACK  CAT  1 

I 

2 

3 

4 

5 

6 
7 

UNFIT 
OTHER  CAT  1 
2 

3 

4 

5 

6 
7 

UNFIT 
1 
2 

3 

4 


7 
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X 


T 


PROGRAM:  P5-5  continued 


FILE: 

FT20F001 

Column 

Format  (EBCDIC) 

Data  Type (Binary) 

Data  Description 

117-120 

REAL 

MEN. CAT.  5 

121-124 

REAL 

6 

125-128 

REAL 

7 

129-132 

REAL 

PHYS. UNFIT 
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Program  name: 


APPLY. FITNESS .  PROP 


Program  ID:  P5-A 


Author 


Unknown 


Computer/OS:  ibm  370/HASP 


Language : 


FORTRAN  G 


Output  Files: 


FT20F001 


QUAL . CTYGRP . POP . YR8  6 . TRY  1 


2-135 


Purpose : 


This  program  applies  the  fitness  proportions  to  the  adjusted  projected 
population.  The  resulting  tape  file  contains  a  weight  for  each  mental 
category  and  for  physically  unfit.  A  list  of  the  number  of  records  processed 
for  each  county  group  is  printed  along  witli  their  summary  data. 


Input  Files: 


FT09F001  CTYGRP. FITNESS. YR86. TRY  1 
FT10F001  CTYGRP.P0P.ADJ.YR86.TRYl 
SYS IN  TITLECARD 


Estimated  Requirements: 

Core:  100K  Tape  Drives:  3 

CPU  Time:  2  minutes  Disk  Drives:  1 

Print  Lines:  1000 

Subroutine  name/entry/entry.  .  . 

Internal  (SOURCE/OBJECT)  External 

QUAL  (SOURCE)  FREAD 

FWRITE 


FILE  DOCUMENTATION 


PROGRAM:  P5-6  APPLY. FITNESS. PROP 

FILE:  FT09F001 

10  TYPE:  INPUT 

FILE  TYPE :  BINARY 

DSN:  CTYGRP. FITNESS. YR86.TRY1 


LRECL:  132 
BLKSIZE:  2640 
RECFM:  FB 


I 

I 

I 

I 


Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 

77-80 

81-84 

85-88 

89-92 

93-96 

97-100 

101-104 

105-108 

109-112 

113-116 

117-120 

121-124 

125-128 

129-132 


INTEGER 

7N 


* 

INTEGER 


COUNTY  GROUP  CODE 

RATE  FOR  MALE  WHITE  CAT  1 

2 

3 

4 

5 

6 
7 

UNFIT 

BLACK  CAT  1 
2 

3 

4 

5 

6 
7 

UNFIT 

OTHER  1 

2 

3 

4 

5 

6 
7 

UNFIT 

FEMALE  1 

2 

3 

4 

5 

6 
7 

UNFIT 


FILE  DOCUMENTATION 


PROGRAM:  P5-6  APPLY. FITNESS. PROP 

FILE:  FTlOFOOl  LRECL:  *0 

10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN :  CTYGRP . POP . AD J . YR8  6 . TRY 1 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-2 

INTEGER 

REGION 

CODE 

3-4 

/ 

SEX  CODE 

5-6 

RACE  CODE 

7-8 

AGE  CODE 

9-10 

HIGHEST 

1  GRADE  COMPLETED 

11-12 

IN  SCHOOL  CODE 

13-14 

INSTITUTIONALIZED  CODE 

15-16 

IN  MILITARY  CODE 

17-18 

VETERAN 

CODE 

19-20 

EMPLOYED /UNEMPLOYED  CODE 

21-22 

SAMPLE 

(5%  or  15%) 

23-24 

FILLER 

25-28 

INCOME 

(#  WHO  HAD  INCOME) 

29-32 

v 

f 

INCOME 

(AMOUNT  OF  INCOME) 

33-36 

INTEGER 

COUNT 

37-40  ' 

REAL 

WEIGHT 

2-137 


FILE  DOCUMENTATION 


PROGRAM:  P5-6  APPLY. FITNESS. PROP 

FILE:  FT20F001 

10  TYPE:  OUTPUT 

FILE  TYPE:  BINARY 

DSN:  QUAL . CTYGRP . YR8  6 . TRY 1 


LRECL:  72 
BLKSIZE:  7200 
RECFM:  FB 


Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23r-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 


INTEGER 

'  A 


V 

INTEGER 

REAL 

A 


* 

REAL 


REGION  CODE 
SEX  CODE 
•RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 

EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  or  15%) 

FILLER 

INCOME  (#  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 

WEIGHT  MENTAL  CATEGORY  1 

2 

3 

4 

5 

6 

V  7 

4'  Y  PHYS. UNFIT 
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DEVELOPMENT  OP  QHA  FILE  (continued) 
QUAL.CTT  .TO.QUAL.SEBV  (cowtlnwtd) 


£  £  £  £ 

.  H.  H.  H. 

vO  <fi  >o 

CD  ®  CC  00 

qc  a.  oc  oe 

>*  >•>•>• 

£  5  £  i 

H  H  H  H 

<€>  o  ®  <o 

OO  «C  CO  OT 

oe  e  oe  * 

>•  ►  ►  ► 

_n.  e.  a.  ft. 

a.  a.  o.  a. 

£  £  £  £ 

si  EE  E 

9  3  a  b  2 

2  8  8  8  8 

g  g  5  S  S 

S  *  *  < 

O  ijj  u  u  uj 

2  2  2  2 

i  e  e  i 

5  SJ  3  S 

o  poo 

u  u  o  o 

I  1  i  S' 

<  z  z  < 

M  a;  ui  w 

-J  .J  -4  -1 

aS  £  i?  z 

U  UJ  UJ  UJ 

C  a.  C  u. 

-J  ml  J  mi 

Z  z  z  z 

EE>Q5>EE>QB> 

0B>QB>QB>0> 

2|S- 


E  E 


5  S 
£  S 


3  ,  3 


sees 


0^ 


i 
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Program  name:  QUALITY .CG .TO. QUAL.CTY  .  (STEP1.-2) 


Program  ID:  I’5-7 


,  .  UNKNOWN 

Author: 

1 

I 

Computer/OS:  IBM  370/HASP 

Language:  FORTRAN  G 

_ ! 

Purpose :  This  is  stop  1  of  a  3  step  sequence.  Stop  2  is  a  sort,  stop  3 

will  bo  documented  on  the  next  program  documentation  page.  This 
step  transforms  the  county-group  population  to  state/county 
population.  A  summary  of  the  various  counts  (//  records  read, 

It  records  written,  etc.)  is  written  on  sysout. 


Estimated  Requirements: 


Core:  150K 

CPU  Time:  4  minutes  (total  of  all 
3  steps) 

Print  Lines:  2000 


Tape  Drives:  2 
Disk  Drives:  3 


Subroutine  name/entry /entry. 


Internal  (SOURCE/OBJECT) 
INTCTY / CGTCTY / PRTGRP 


External 
FREAD  ASTSI 

FWRITE  ASTSP 

LEAVE 


Input  Files: 

FT10F001  QUAL.CTYGRP.P0P.YR86 .TRY1 
FT11F001  CTY.PR0P.WB070 

SYSIN  TITLE  CARD 


Output  Files: 

FT21F001  Error  message  file  for  INTCTY 

FT20F001  &TEMP0  (Temporary  file  input  to  sort  in  Step  2) 

COMMENT:  The  deck  as  it  now  stands  is  set  for  the  male  run.  For 

the  female  run,  two  changes  are  required:  Statement  II  140 
should  read  140  IF(1REC2(2) .  EQ.  2)G0  TO  141  and  Format  «11 
should  read  'NO.  MALE  RECORDS  DROPPED*'. 
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FILE  DOCUMENTATION 


PROGRAM:  P5-7  QUALITY . CG . TO . QUAL . CTY  (STEP  1) 


FILE:  FTlOFOOl 

10  TYPE:  INPUT 

FILE  TYPE:  BINARY 

DSN:  QUAL . CTYGRP . YR86 . TRY 1 


LRECL:  72 
BLKSIZE  :7200 
RECFM:  FB 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 


T 

INTEGER 

REAL 


REAL 


Data  Description 
REGION  CODE 
SEX  CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  OR  15%) 

FILLER 

INCOME  (//WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME 
COUNT 
WEIGHT 

WEIGHT  MENTAL  CATEGORY  1 
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I 


\ 

I 


I 


FILE  DOCUMENTATION 


PROGRAM:  P5“7  QUALITY . CG . TO . QUAL . CTY  (STEP  1) 


FILE: 


FT11F001 


10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  CTY. PROP. WBO 70 


LRECL:  80 
BLKSIZE :  7200 
RECFM:  FB 


Format (EBCDIC) 

Column 

Data  Type (Binary) 

1-5 

511 

6-22 

17X 

23-27 

511 

28 

IX 

29-35 

F7 

.5 

36-42 

43-49 

50-56 

57-63 

64-70 

F7 

.5 

Data  Description 
COUNTY  GROUP  CODE 
FILLER 
COUNTY  CODE 
FILLER 

PROPORTION  MALE 

4 

FEMALE 

- ' 


I 

I 

I 


WHITE 

BLACK 

OTHER 

WHITE 

BLACK 

OTHER 
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FILE  DOCUMENTATION 


PROGRAM:  P5-7  QUALITY . CG . TO . QUAL . CTY 

FILE:  FT20F001 

10  TYPE:  0UTPUT 

FILE  TYPE:  BINARY 

DSN:  &TEMPO 


(Step  I) 

LRECL:  76 
BLKSIZE: 12996 
RECFM:  FB 


Col  turn 
1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


Format (EBCDIC) 
Data  Type (Binary) 

INTEGER 

* 


* 

INTEGER 

REAL 

* 


* 

REAL 


Data  Description 
STATE  CODE 
COUNTY  CODE 
SEX 
RACE 
AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES /NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 


COUNT  MEN.C^T.  1 


v 


I  2 

I  3 

4 

5 

6 

v  7 

PHYS. 


UNFIT 


Program  name 


QUALITY. CG. TO. QUAL. CTY  (Step  3) 


Program  ID:  P5-7 


- - - - - 

Purpose: 

This  Is  the  third  step  of  the  sequence  which  transforms  the  county 
group  population  to  state/county  population.  This  program  aggregates  the 
76  character  records.''' 


Author:  Unknown 


Computer /OS:  IBM  370/Hasp 


Estimated  Requirements: 


Language : 


FORTRAN  G 


Core:  Tape  Drives:  See  Stepl 

CPU  Time:  Estimated  in  Stepl  Disk  Drives: 

Print  Lines: 


Subroutine  name/entry/entry. . . 

Internal  (SOURCE/OBJECT)  External 

None  FREAD 

WRITE 

LEAVE 


Input  Files: 

FTlOFOOl  HEMP 

SYSIN  title  card 


Output  Files: 


FT20F001 


MALE . ST . CTY .POP . YR86 . TRY 1 
FEMALE. ST. CTY. POP .YR86 . TRYl 


one  run 
for  each 
sex 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P5-7  QUALITY, CG. TO. QUAL.CTY  (Step 
FT lOFOO  1 
INPUT 


BINARY 

&TEMP  (Sorted  version  of 
&TEMPO) 


LRECL: 

BLKSIZE: 

RECFM: 


Format (EBCDIC) 

Column  Data  Type (Binary) 


3) 

76 

12996 

FB 


Data  Description 


1 

- 

2 

INTEGER 

STATE  CODE 

3 

- 

6 

COUNTY  CODE 

7 

- 

8 

•  SEX 

9 

- 

10 

RACE 

11 

- 

12 

AGE 

13 

- 

14 

HIGHEST  GRADE  COMPLETED 

15 

- 

16 

IN  SCHOOL  CODE 

17 

- 

18 

INSTITUTIONALIZED  CODE 

19 

- 

20 

IN  MILITARY  CODE 

21 

- 

22 

VETERAN  CODE 

23 

- 

24 

EMPLOYED  CODE 

25 

- 

26 

SAMPLE 

27 

- 

28 

FILLER 

29 

- 

32 

INCOME  (YES /NO) 

33 

- 

36 

INCOME  (AMOUNT) 

37 

- 

40 

INTEGER 

COUNT 

41 

- 

44 

REAL 

ADJUSTED  WEIGHT 

45 

- 

48 

i 

i 

COUNT  MEN. CAT. 1 

49 

- 

52 

2 

53 

- 

56 

3 

57 

- 

60 

4 

61 

- 

64 

5 

65 

- 

68 

6 

69 

- 

72 

\ 

r 

7 

73 

- 

76 

REAL 

PHYS. UNFIT 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P5-7  QUALITY. CC. TO. QUAL.CTY (Step  3) 

FT20F001  LRECL: 

CUTPUT  BLKSIZE: 

BINARY  RECFM: 


76 

12996 

FB 


FEMALE . ST . CTY . POP . YR8  6 . TRY 1 


Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


1  - 

2 

3  - 

6 

7  - 

8 

9  - 

10 

11  - 

12 

13  - 

14 

15  - 

16 

17  - 

18 

19  - 

20 

21  - 

22 

23  - 

24 

25  - 

26 

27  - 

28 

29  - 

32 

33  - 

36 

37  - 

40 

41  - 

44 

45  - 

48 

49  - 

52 

53  - 

56 

57  - 

60 

61  - 

64 

65  - 

68 

69  - 

72 

73  - 

76 

INTEGER 

A 


Y 

INTEGER 

REAL 


1 

REAL 


STATE  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADES  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN. CAT..  1 
2 

3 

% 

4 

5 

6 
7 

PHYS. UNFIT 
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FILE  DOCUMENTATION 


PROGRAM: 

FILE: 

10  TYPE: 
FILE  TYPE: 
DSN: 


P5-7  QUALITY. CG. TO. QUAL.CTY (Step  3) 
FT20F001 
OUTPUT 
BINARY 

MALE . ST ,CTY . POP . YR86 . TRY 1 


LRECL: 

BLKSIZE: 

RECFM: 


76 

12996 

FB 


Column 


Format (EBCDIC) 

Data  Type (Binary)  Data  Description 


1  -  2 

INTEGER 

STATE  CODE 

3-6 

I 

k 

COUNTY  CODE 

7-8 

SEX 

9-10 

RACE 

11  -  12 

AGE 

13  -  14 

HIGHEST  GRADES  COMPLETED 

15  -  16 

IN  SCHOOL  CODE 

17  -  18 

INSTITUTIONALIZED  CODE 

19  -  20 

IN  MILITARY  CODE 

21  -  22 

VETERAN  CODE 

23  -  24 

EMPLOYED  CODE 

25  -  26 

• 

SAMPLE 

27  -  28 

FILLER 

29  -  32 

1 

f 

INCOME  (YES/NO) 

33  -  36 

INCOME  (AMOUNT) 

37  -  40 

INTEGER 

COUNT 

41  -  44 

REAL 

ADJUSTED  WEIGHT 

45  -  48 

i 

COUNT  MEN. CAT.  1 

49  -  52 

2 

53  -  56 

3 

57  -  60 

4 

61  -  64 

5 

65  -  68 

6 

69  -  72 

J 

7 

73  -  76 

REAL 

PHYS. UNFIT 

f 

i 
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Program  uh:  QUAL.CTY.TO.QUAL.SERVIC 


Purpose 


Protraa  ID:  pj.g 


<  *  <■ 


This  prograa  takes  the  aex-apeclflc,  qualified  county  projected 
populations  and  uses  the  aervtce  directories  to  nap  the  population  Into 
service  boundaries  (DKC's,  NRD'a,  etc.)*  The  coaplete  DOD  projection 
will  require  8  runs  of  this  program. one  for  each  sex  for  each  service. 
The  only  changearequlred  are  In  the  JCL,  nanely  the  Input  population 
tape  (nale  or  fenale)  and  the  service  dictionary  (Arsy,  Now,  Marine 
Corps  or  Air  Pores).  The  second  step  of  the  prograa  re-sorts  the  file 
according  to  recruiting  areas. 


Author:  Unknown 


Computer /OS:  IBM  370/Hsep 

Language:  fortran  C 

1 

Eat  las  ted  Requirement: 


Core:  ISO  K  Tape  Drives: 

CPU  Tlae:  11  ala  Disk  Drives: 

Print  Llnea:  1000 

Subroutine  name /entry /entry. . . 

Internal  (S0CRCE/0BJECT)  External 

IKTMAP/CTTREC/PRTMAP  (Source)  PREAD  KVECR  .  1. 

RDORC  (Source)  IWtlTZ  ASTSt 

LIST!  r  LEAVE 


2 

3  (required  for 
sort) 


Input  Piles: 

PT10P001  MALE. ST.COUMTT. POP. TR86.TRY1  (or  FEMALE. ST ) 

PTUF001  SERVICE  DIRE  CTO  RT 

STSIN  TITLE  CARD 


Output  Piles:  __  ^ 

PT  20  P001  kTT2TO  (vmaorted)  ° 

SO* TOUT  MALE. ARMT.CDWfTT.  POP. TR«6* T*T  (sorted) 

(FEMALE) (SAVT) 

(AIRP) 

(MARI) 

PT 2 2 P001  PRINT  PILE  WHICH  CONTAINS  A  SOWAET  OP  COUNTIES  NOT 
liranCBJ  A  COUNTIES  REFERENCES  MORE  THAN  ONCE. 

STSOOT  THIS  PILE  CONTAINS  A  SUMMARY  OP  THE  RECORDS  READ,  etc. 


FILE  DOCUMENTATION 


1 

PROGRAM: 

P5-8  QUAL.CTY.TO.QUAL.SERVIC 

1 

FILE: 

FT10F001 

LRECL: 

76 

10  TYPE: 

INPUT 

BLKSIZE: 

12996 

FILE  TYPE 

:  BINARY 

RECFM: 

FB 

DSN;  MALE. ST. COUNTY 

.POP.YR86.TRY1 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

1 

1  - 

2 

INTEGER 

STATE  CODE 

3  - 

6 

L 

COUNTY  CODE 

I 

7  - 

8 

SEX 

1 

9  - 

10 

RACE 

r 

11  - 

12 

AGE 

1 

13  - 

14 

HIGHEST  GRADE  COMPLETED 

f" 

15  - 

16 

IN  SCHOOL  CODE 

1 

17  - 

18 

* 

INSTITUTIONALIZED  CODE 

19  - 

20 

IN  MILITARY  CODE 

1 

21  - 

22 

VETERAN  CODE 

1 

23  - 

24 

EMPLOYED  CODE 

( 

25  - 

26 

SAMPLE 

1 

27  - 

28 

FILLER 

29  - 

32 

INCOME  (YES /NO) 

1 

33  - 

36 

T 

INCOME  (AMOUNT) 

37  - 

40 

INTEGER 

COUNT 

| 

41  - 

44 

REAL 

ADJUSTED  WEIGHT 

45  - 

48 

A 

COUNT  MEN. CAT.  1 

f 

49  - 

52 

2 

1 

53  - 

56 

3 

( 

57  - 

60 

4 

1 

11 

61  - 

64 

5 

65  - 

68 

6 

| 

69  - 

72 

7 

73  - 

76 

¥ 

PHYS. UNFIT 

I 
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FILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL.CTY.TO.QUAL.SERVIC 
FILE:  FTllFOOl 

10  TYPE:  INPUT 


FILE  TYPE:  EBCDIC 

DSN:  RES.ST.CTY 


LRECL: 

BLKSIZE: 

RECFM: 


80 

7200 

FB 


Format (EBCDIC) 

Column  Data  Type (Binary) 


Data  Description 


FIRST  CARD  FOR  STATE 


1  -  2 

12 

STATE  CODE 

3 

IX 

FILLER 

4-5 

A2 

STATE  ABBREVIATION 

6-7 

A2 

CENSUS  REGION 

8 

IX 

FILLER 

9-20 

3A4 

STATE  NAME 

21  -  80 

10 (IX, 15) 

FIPS  CODE  LIST 

(MAXIMUM  OF  10  CODES  PER 

CARD) 

CONTINUATION  CARDS 

1  -  2 

12 

STATE  CODE 

3-20 

18X 

FILLER 

21  -  80 

10(1X, 15) 

FIPS  CODES 

(MAXIMUM  OF  10  CODES  PER 
CARD) 
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PILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL.CTY.TO.QUAL.SERVIC 
FILE:  FTllFOOl  LRECL:  80 

10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  EBCDIC  RECFM:  FB 

DSN:  RES. ARMY. CTY 

Format (EBCDIC) 

Column  Data  Type(Binary)  Data  Description 


FIRST  RECORD  FOR  DRC 


1  -  2 

12 

.DRC  SEQUENCE  NO. 

3-5 

A3 

DRC  CODE 

6-7 

A2 

REGION  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DRC  NAME 

21-80 

10 (IX, 15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER 

CONTINUATION  RECORDS 

FOR  DRC 

1-2 

12 

DRC  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10  -  14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16  -  20 

15 

COUNTY  FIPS 

21  -  80 

SAME  AS  FIRST  CARD 
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FILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL.CTY.TO.QUAL.SERVIC 


FILE: 

FT11F001 

LRECL: 

80 

10  TYPE: 

INPUT 

BLKSIZE: 

7200 

FILE  TYPE: 

EBCDIC 

RECFM: 

FB 

DSN: 

RES, NAVY. CTY 

Format  (EBCDIC) 

Column  Data  Type(Binary)  Data  Description 


FIRST  RECORD  FOR  NRD 


1-2 

12 

NRD  SEQUENCE  NO. 

3-5 

A3 

NRD  CODE 

6-7 

A2 

AREA  CODE 

8 

IX 

FILLER 

9-20 

3A4 

NRD  NAME 

21  -  80 

10 (IX,  15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  NRD 

1  -  2 

12 

NRD  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10  -  14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16  -  20 

15 

COUNTY  FIPS 

21  -  80 

SAME  AS  FIRST  CARD 
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FILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL. 

CTY . TO .QUAL . SERVIC 

FILE;  FTllFOOl 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE : 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES. MARI. CTY 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD  FOR  RS 

1  -  2 

12 

RS. SEQUENCE  NO. 

3-5 

A3 

RS  CODE 

6-7 

A2 

DISTRICT  CODE 

8 

IX 

FILLER 

9-20 

3A4 

RS  NAME 

21  -  80 

10 (IX, 15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  RS 

1  -  2 

12 

RS  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10  -  14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16  -  20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 
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'  * 


FILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL 

FILE:  FT11F001 

10  TYPE:  INPUT 

FILE  TYPE :  EBCDIC 
DSN:  RES.AIRF.CTY 

Column 


CTY.TO.QUAL.SERVIC 

LRECL: 

BLKSIZE: 

RECFM: 

Format (EBCDIC) 

Data  Type (Binary) 


80 

7200 

FB 


Data  Description 


FIRST  RECORD  FOR  DET 


1-2 

12 

DET  SEQUENCE  NO. 

3-5 

A3 

DET  CODE 

6-7 

A2 

GROUP  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DET  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION 

RECORDS  FOR  DET 

1  -  2 

12 

DET  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10  -  14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16  -  20 

15 

COUNTY  FIPS 

21  -  80 

SAME  AS  FIRST  CARD 
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FILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL.CTY.TO.QUAL.SERVIC 

FILE:  FT20F00 1  LRECL:  76 

10  TYPE:  OUTPUT  BLKSIZE:  12996 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN:  &TEMPO 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1  -  2 

INTEGER 

REGION  CODE 

3-6 

J 

COUNTY  CODE 

7-8 

SEX 

9-10 

RACE 

11  -  12 

AGE 

13  -  14 

HIGHEST  GRADE  COMPLETED 

15  -  16 

IN  SCHOOL  CODE 

17  -  18 

INSTITUTIONALIZED  CODE 

19  -  20 

IN  MILITARY  CODE 

21  -  22 

VETERAN  CODE 

23  -  24 

EMPLOYED  CODE 

25  -  26 

SAMPLE 

27  -  28 

FILLER 

29  -  32 

INCOME  (YES /NO) 

33  -  36 

▼ 

INCOME  (AMOUNT) 

37  -  40 

INTEGER 

COUNT 

41  -  44 

REAL 

ADJUSTED  WEIGHT 

00 

1 

i 

COUNT  MEN. CAT.  1 

49  -  52 

2 

53  -  56 

3 

57  -  60 

4 

61  -  64 

5 

65  -  68 

6 

69  -  72 

7 

73  -  76 

1 

f 

PHYS. UNFIT 

FILE  DOCUMENTATION 


PROGRAM:  P5-8  QUAL.CTY.TO.QUAL.SERVIC 
FILE:  SORTOUT  lr£CL: 

10  TYPE:  OUTPUT  BLKSIZE: 

FILE  TYPE:  BINARY  RECFM: 

DSN:  MALE. ARMY. COUNTY. POP. YR86. TRY 1 


76 

12996 

FB 


(FEMALE) (NAVY) 
(AIRF) 


Format (EBCDIC) 


1  - 

2 

INTEGER 

REGION  CODE 

3  - 

6 

l 

1 

COUNTY  CODE 

7  - 

8 

SEX 

9  - 

10 

RACE 

11  - 

12 

AGE 

13  - 

14 

1 

HIGHEST  GRADE  COMPLETED 

15  - 

16 

IN  SCHOOL  CODE 

17  - 

18 

INSTITUTIONALIZED  CODE 

19  - 

20 

IN  MILITARY  CODE 

21  - 

22 

VETERAN  CODE 

23  - 

24 

EMPLOYED  CODE 

25  - 

26 

SAMPLE 

27  - 

28 

FILLER 

29  - 

32 

INCOME  (YES /NO) 

33  - 

36 

1 

r 

INCOME  (AMOUNT) 

37  - 

40 

COUNT 

INTEGER 

41  - 

44 

REAL 

ADJUSTED  WEIGHT 

45  - 

48 

i 

i 

COUNT  MEN. CAT.  1 

49  - 

52 

i 

53  - 

56 

3 

57  - 

60 

| 

4 

61  - 

64 

- 

i 

5 

65  - 

68 

6 

69  - 

72 

7 

73  - 

76 

f 

PHYS. UNFIT 
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Prograa  naae:  QHA.TPE 


Prograa  ID:  P5-9 


Pur  pox:  This  prograa  foraa  a  tap*  with  ona  record  per  county.  Thla 
record  contatne  relevant  county  data  froa  the  County  Info,Ptle  aa 
wall  aa  a  coapleta  count  at  tha  HA  and  QUA  population*.  It  la  dealgned 
for  further  uaa  by  the  Servtcea  in  their  analyala  aa  well  aa  being  a 
aourca  of  any  or  all  of  tha  QUA /HA  reporta. 


Author:  Allaon  Crewa 


1 


Coaputer/OS:  IBM  370/HASP 


Language:  FORTRAN  C 


Eattaaced  Requlreaencs: 


Cora:  120K 


Tape  Drives:  2 


CPU  Tlae:  12  HIN 


Disk  Drlvaa:  l 


Print  Linas:  1000 


Subroutine  aana/entry/antry. . 


Internal  (SOURCE/ OBJECT) 

INTCTY /CTYNAM/ PRTCTY  (SOURCE)  ) 

INTNAM/RDNAM  (SOURCE)  ?) 


External 
FUAD  LIST! 

ASTS  }  BN  SC  HI 


Input  Files: 


fTOTPOOl 


PT11P001 


COUNTY. INTO. PILE 


PT10P001  HALE.ARMY. COUNTY. POP. TR86.TEY1 


RES. ARMY. CTY 


ITTP,  LAC  IN,  LACOUT,  ISEX.LTITL 


Output  Flies: 


FT20F001  JUNE. YRS6. ARMY. HALES 

jhAVY^I FEMALES) 

[AIRF  ] 

VSTAT9 

PT21P001  ERROR  MESSAGE  PILE  POR  1NTCTT 

SYSOUT  THIS  FILE  CONTAINS  ERROR  HESSACE  PROM  THE  HAIR  PROGRAM 

AND  SLYWARY  DATA  ON  THE  RUN. 

COW  ENT:  POR  PORMATION  Of  THE  STATE  TAFP-S  PT10P001  HILL  BE 
HALE. ST. COUNTY. POP. TR86. TRY l 
(PEUU) 

THE  FORMAT  OP  THIS  TAPE  IS  THE  SAMS  AS  THE  SERVICE 
SPICirtC  INPUTS. 
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FILE  DOCUMENTATION 


PROGRAM:  P5-9 

QMA.TPE 

FILE:  FT09F001 

LRECL:  140 

10  TYPE:  INPUT 

BLKSIZE:  7000 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  COV NTY. INFO. FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

• 

FILLER 

123-140 

18A1 

COUNTY  NAME 
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FILE  DOCUMENTATION 


PROGRAM:  P5-9  QMA.TPE 

FILE:  FT10F001  LRECL:  76 

10  TYPE:  INPUT  BLKSIZE:  12996 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN:  MALE . ARMY . COUNTY . POP . YR86 . TRY 1 

'(FEMALE)  NAVY' 

MARI  Format (EBCDIC) 

Column  AIRF  Data  Type (Binary)  Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 


1 

INTEGER 

REAL 

* 


REAL 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES /NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  1 


i  ? 


2 

3 

4 

5 

6 
7 


PHYS. UNFIT 
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FILE  DOCUMENTATION 


PROGRAM:  P5-9 

QMA.TPE 

FILE:  FT11F001 

LRECL:  80 

10  TYPE:  INPUT 

BLKSIZE:  7200 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  RES.ST.CTY 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

FIRST  CARD 

FOR  STATE 

1-2 

12 

.STATE  CODE 

3 

IX 

FILLER 

4-5 

A2 

STATE  ABBREVIATION 

6-7 

A2 

CENSUS  REGION 

8 

IX 

FILLER 

9-20 

3A4 

STATE  NAME 

21-80 

10(1X, 15) 

FIPS  CODE  LIST 

(MAXIMUM  OF  10  CODES  PER  CARD) 

CONTINUATION  CARDS 

1-2 

12 

STATE  CODE 

3-20 

18X 

FILLER 

21-80 

10(1X,I5) 

FIPS  CODES 

(MAXIMUM  OF  10  CODES  PER  CARD) 

•  1 

:1  I 


FILE  DOCUMENTATION 


PROGRAM:  PS-9  QMA.TPE 

FILE:  FTllFOOl  LR£CL:  80 

10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  EBCDIC  RECFM:  FB 

DSN:  RES. ARMY. CTY 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD 

FOR  DRC 

1-2 

12 

DRC  SEQUENCE  NO. 

3-5 

A3 

DRC  CODE 

6-7 

A2 

REGION  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DRC  NAME 

21-80 

10(1X, 15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS  FOR  DRC 


1-2 

12 

DRC  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 
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L 


I 

-f 


FILE  DOCUMENTATION 


PROGRAM:  P5-9  QMA.TPE 

FILE:  FT11F001 
10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  RES. NAVY. CTY 


LRECL:  80 
BLKSIZE:  7200 
RECFM:  FB 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


FIRST  RECORD  FOR  NRD 


1-2 

3-5 

6-7 

8 

9-20 

21-80 


12 

A3 

A2 

IX 

3A4 

10(1X,I5) 


Data  Description 


NRD  SEQUENCE  NO. 

NRD  CODE 
AREA  CODE 
FILLER 
NRD  NAME 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 


CONTINUATION  RECORDS  FOR  NRD 


1-2 

12 

NRD  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 
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FILE  DOCUMENTATION 


PROGRAM:  P5-9  QMA.TPE 
FILE:  FTllFOOl 
10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  RES. MARI. CTY 


LRECL:  80 

BLKSIZE:  7200 

RECFM:  FB 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


FIRST  RECORD  FOR  RS 


1-2 

3-5 

6-7 

8 

9-20 

21-80 


12 

A3 

A2 

IX 

3A4 

10(1X, 15) 


Data  Description 

RS  SEQUENCE  NO. 

RS  CODE 
DISTRICT  CODE 
FILLER 
RS  NAME 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 


CONTINUATION  RECORDS  FOR  RS 


1-2  12 

3-9  7X 

10-14  15 

15  IX 

16-20  15 


21-80 


RS  SEQUENCE  NO. 

FILLER 

COUNTY  FIPS 

FILLER 

COUNTY  FIPS 

SAME  AS  FIRST  CARD 
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FILE  DOCUMENTATION 


PROGRAM:  P5-9  QMA.TPE 

FILE:  FT11F001  LRECL:  80 

10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  EBCDIC  RECFM:  FB 

DSN:  RES.AIRF.CTY 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD 

FOR  DET 

1-2 

12 

DET  SEQUENCE  NO. 

3-5 

A3 

DET  CODE 

6-7 

A2 

GROUP  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DET  NAME 

21-80 

10(1X, 15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARDO 

CONTINUATION 

RECORDS  FOR  DET 

1-2 

12 

DET  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

2-165 


FILE  DOCUMENTATION 


PROGRAM:  P5-9 

QMA.TPE 

FILE:  SYS IN 

LRECL : 

80 

10  TYPE:  INPUT 

BLKSIZE: 

80 

FILE  TYPE:  BCD 

RECFM: 

FB 

DSN: 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-4 

A4 

ITYP  (TITL) 

5-8 

14 

.IAGIN  (BEGINNING  AGE) 

9-12 

14 

IAGOUT  (ENDING  AGE) 

13-14 

2X 

FILLER 

15 

11 

ISEX 

16 

IX 

FILLER 

17-44 

7A4 

LTITL 
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FILE  DOCUMENTATION 


LRECL : 

BLKSIZE: 

RECFM: 


4800 

4800 

FB 


PROGRAM:  P5-9  QMA.TPE 

FILE:  FT20F001 

10  TYPE:  OUTPUT 
FILE  TYPE:  BINARY 

DSN:  JUNE. YR 8 6. ARMY. MALES 

(FEMALES)  (NAVY, MARI, AIRF, STATE) 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 

Each  record  in  a  file  contains  forty  120-character  segments.  The  first 
segment  (Format  A)  contains  county  identification  data;  the  remaining  39  seg¬ 
ments  (Format  B)  contain  counts  of  individuals  in  classes  listed  below. 

Population  Classifications 
(All  segments  are  mutually  exclusive) 

In-service  (all  mental  categories  combined)  Segment  2 

Veteran  (all  mental  categories  combined)  Segment  3 

Institutionalized  (all  mental  categories  combined)  Segment  4 
Physically  unfit  (all  mental  categories  combined)  Segment  5 
Mental  Category  I 


1.  HSG  in  school 

2.  HSG  not  in  school 

3.  NHSG  seniors 

4.  Other  NHSG  in  school 

5.  NHSG  not  in  school 
Mental  Category  II 

Subclasses  1-5  as  above 
Mental  Category  IIIA 

Subclasses  1-5  as  above 
Mental  Category  IIIB 

Subclasses  1-5  as  above 
Mental  Category  IVA 

Subclasses  1-5  as  above 
Mental  Categories  IVB  and  C 
Subclasses  1-5  as  above 
Mental  Category  V 

Subclasses  1-5  as  above 


Segment  6 
Segment  7 
Segment  8 
Segment  9 
Segment  10 

Segments  11-15 

Segments  16-20 

Segments  21-25 

Segments  26-30 

Segments  31-35 

Segments  36-40 
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FILE  DOCUMENTATION 


PROGRAM: 

P5-9  QMA.TPE 

FILE: 

FT20F00L 

LRECL : 

4800 

10  TYPE: 

OUTPUT 

BLKSIZE: 

4800 

FILE  TYPE:  FRCDir 

RECFM: 

FB 

DSN:  JUNE. YR86. ARMY. MALES 


Format (EBCDIC) 


Column 

Data  Type (Binary) 

Data  Description 

FORMAT  A  - 

SEGMENT  1 

1-4 

A4 

1TITL 

5-8 

1 

i 

L 

L 

9-12 

13-16 

17-20 

21-24 

1 

25-28 

I 

LTITL 

29-32 

REGION  CODE 

33-36 

DRC 

CODE 

37-40 

DRC 

NAME 

41-44 

1 

DRC 

NAME 

45-48 

A4 

DRC 

NAME 

49-53 

511 

FIPS  CODE 

54-55 

2X 

FILLER 

56-59 

A4 

STATE  ABBR. 

60-63 

l 

i 

COUNTY  NAME 

64-67 

\ 

i 

» 

68-71. 

A. 

4 

COUNTY  NAME 

72-119 

12A4 

FILLER 

120 

A1 

FILLER 
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FILE  DOCUMENTATION 


PROGRAM:  P5-9  QMA.TPE 

FILE:  FT20F001  LRECL:  4800 

10  TYPE:  OUTPUT  BLKSIZE:  4800 

FILE  TYPE:  BINARY  RECFM:  FB 

DSN:  JUNE. 7 7. ARMY. MALES 


Columa 

FORMAT  B 
1-8 
9-16 
17-24 
25-32 
33-40 
41-48 
49-56 
57-64 
65-72 
73-80 
81-88 
89-96 
97-104 
105-112 
113-120 


Format (EBCDIC) 
Data  Type (Binary) 

SEGMENTS  2-40 

F8.1 


Data  Description 


COUNTS  FOR  WHITE  17 

i  l 

18 
19 
j  20 


? 


i  V  21 
BLACK  17 
18 

I  19 

i 

20 

T  21 

OTHER  17 
18 

19 

20 
21 
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I  Program  name:  CTYGRP.MA 


Progrjm  ID:  P6-1 


Purpose :  This  program  Is  a  report  generator  to  print  the  distribution  of 
members  oi  male  population  within  each  county  group  into  availability 
class  LI  icat  ions  by  age  and  race  using  adjusted  population  of  June  1‘lbb. 


Author:  Alison  Crews 


Computer/OS:  IBM  360-170/HASP 


Language:  FORTRAN  G 


Estimated  Reouirements : 


Core:  100K 


Tape  Drives:  1 


CPU  Time:  A  MIN 


Disk  Drives:  1 


Print  Lines:  38000 


Subroutine  name/entry/entry. 


Xncernal  ( SOURCE /03JECT) 


External 


Input  Files: 


FT10F001  CTYGRP . POP . ADJ . YR86 . TRY1 


Output  Files: 

FT06F001  DISTRIBUTION  OF  MILITARY  AVAILABLE  WITHIN  COUNTY  GROUP 
BY  RACE,  AGE,  AND  SEX 
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. . .  r 


FILE  DOCUMENTATION 


PROGRAM:  P6-1  CTYGRP.MA 

FILE:  FTlOFOOl 

10  TYPE:  INPUT 

FILE  TYPE:  BINARY 

DSN:  CTYGRP.P0P.ADJ.YR86.TRY1 


LRECL:  40 

BLKSIZE :  7200 
RECFM:  FB 


Column 

1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

- IW-20~ 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 


Format (EBCDIC) 
Data  Type (Binary) 


INTEGER 

* 


V 

INTEGER  _ 
REAL 


Data  Description 
REGION  CODE 
SEX  CODE 
RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 

INSTITUTIONALIZED  CODE _ 

^__J^llI«T!afrcbDE 
VETERAN  CODE 
EMPLOYED/UNEMPLOYED  CODE 
SAMPLE  (5%  or  15%) 

FILLER 

INCOME  (//  WHO  HAD  INCOME) 
INCOME  (AMOUNT  OF  INCOME) 
COUNT 
WEIGHT 
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Program  name:  QUALIF.RTP.CTYCRP 


Program  ID: P6 


Pur££se:  This 

program  produces  a  QMA  report  by  county  group. 


Estimated  Requirements : 


Core:  100K 


CPU  Time:  5  MIN 


Tape  Drives:  1 
Disk  Drives:  l 


Print  Lines:  22000 


Subroutine  naae/eatry/entry. 


Internal  (SOURCE/OBJECT) 


External 


tput  Files: 

FT10F001  QUAL.CTYCRP.P0P.YR86.TRY1 

FT05F001  ITYP , LAG IN , IAGOUT , ISEX , KTITL 


Output  Files: 


FT06F001  Qualifications  of  available  males  by  county  group 

(ages  17-21  inclusive)  June  86  projected  population 
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FILE  DOCUMENTATION 


PROGRAM:  P6-2 

QUALIF. RPT.CTYGRP 

FILE:  FT05F001 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE: 

80 

FILE  TYPE:  BCD 

RECFM: 

FB 

DSN: 

Column 

Format  (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1  -  A 

A4 

ITYP 

oo 

l 

m 

14 

• 

LAG  IN 

9-12 

14 

IAGOUT 

13  -  14 

2X 

FILLER 

15 

A1 

ISEX 

16 

IX 

FILLER 

17  -  56 

10A4 

KTITL 

FILE  DOCUMENTATION 


PROGRAM:  P6-2  QUALIF . RPT . CTYGRP 

FILE:  FT lOFOOl 

10  TYPE:  INPUT 

FILE  TYPE:  BINARY 

DSN:  QUAL. CTYGRP. YR8 6. TRY1 


LRECL:  72 
BLKSIZE:  7200 
RECFM:  FB 


/ 


Format (EBCDIC) 

Columa  Data  Type (Binary) 


Data  Description 


1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 


INTEGER 

A 


V 

INTEGER 

REAL 

A 


* 

REAL 


REGION  CODE 
SEX  CODE 
•RACE  CODE 
AGE  CODE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED /UNEMPLOYED  CODE 
SAMPLE  (5%  or  15%) 

FILLER 
INCOME 
INCOME 
COUNT 
WEIGHT 

WEIGHT  MENTAL  CATEGORY 


(//  WHO  HAD  INCOME) 
(AMOUNT  OF  INCOME) 


1 
2 

3 

4 

5 

6 
7 

PHYS. UNFIT 
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REPORT  GENERATORS  (CONTINUED) 


(5  <J 


E&l£>3^i^2^3^S>3>3y 
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HAI.E .  A I RF .  COUNTY .  POP .  YR86 .  TRY1 


Pronr.ua  name:  SI'AT.SKKV.MA  I  Program  10:  cr,- 3 


Pur  po  e : 

Tlii1  purpose  of  this  program  is  to  lisL  for  .ill  services  the  ilisirihu- 
tion  of  military  ava  i  lable  males  or  females  by  race,  availability  classi¬ 
fication,  and  age  for  each  county  group  within  each  state. 


Author:  Agnos  Purcell 

Coraputer/OS:  irm  360-370/1IASP 

Language : 

FORTRAN  G 

Estimated  Reouirements: 

Core:  120K 

Tape  Drives:  1 

CPU  Time:  6  MIN 

Disk 

Drives:  1 

Print  Lines:  15000 

Subroutine  name/entry/entry.  . 

Internal  (SOURCE/OBJECT) 

External 

COMP  (SOURCE) 

FREAD 

MVECR 

FS  T PAG / NU  PAG / CONTPG / LSTPAG / SUMP AG 

(SOURCE) 

ASTSI 

BNSCHI 

INTCTY/CTYNAM/PRTCTY  (SOURCE) 

LISTI 

1 

INTNAM/RDNAM  (SOURCE) 

RDREG  (SOURCE) 

LEAVE 

I 

1 

Input  Files: 

FT05F00I 

FT09F00I 

FT10F001 

FT11F001 


INPUT  DATA  CARDS 

COUNTY.  INFO. FI1.E 

MALE. ST. COUNTY. POP. YR8 6. TRY 1 

FEMALE . ST . COUNTY . POP . YR8  6 . TRY I 

RES. STATE. CTY 


Outout  Files: 


FT21F001 

FT31F001 

FT32F00I 

FT33F001 

FT34F001 


COUNTY  NAME  RETRIEVAL  DIAGNOSTIES 

MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  ACES  17-21  REPORT 
MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  ACES  17-21  REPORT 
MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  AGES  17-21  REPORT 
MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  AGES  17-21  REPORT 


2-177 


FILE  DOCUMENTATION 


PROGRAM:  P6- 3  STAT . SERV .MA 

FILE:  '  FT05F001  LRECL:  80 

10  TYPE:  INPUT  BLKSIZE:  80 

FILE  TYPE:  BCD  recFM:  FB 

DSN: 


Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

CARD  1 

1-2 

12 

SEX(1=MALE,  2= FEMALE) 

CARD  2 

1-12 

3A4 

SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 

AIR  FORCE 

CARD  3 

1-8 

2A4 

REGION/AREA/DISTRICT/GROUP 

CARD  4 

1-4 

A4 

DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 

1-40  10A4  ’  TITLE 
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-  ,  * 


file  DOCUMENTATION 


i 


PROGRAM:  P6-3 

STAT.SERV.MA 

FILE:  FT09F001 

LRECL:  140 

10  TYPE:  INPUT 

BLKSIZE:  7000 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary)  Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE*  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4  X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

no 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

•  filler 

123-140 

18A1 

COUNTY  NAME 

FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 
FILE:  FT 1 OF 001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 

DSfl:  MALE. ST. COUNTY. POP. YR86.TRY1 


LRECL: 

BLKSIZE: 

RZCFM: 


FEMALE . ST . COUNTY . POP . YR86. TRY1 
Format (EBCDIC) 

Column  Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 

* 


* 

INTEGER 

REAL 


* 


REAL 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERXN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES /NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

II 

III 

IV 

V 

, ,  , ,  VI 

V 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 
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T 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT. SERV.MA 


FILE:  FTllFOOl 


LRECL:  80 


10  TYPE:  INPUT  BLKSIZE:  7200 

FILE  TYPE:  EBCDIC  R£CFM:  FB 

DSN:  RES. STATE. CTY 


Column 

1st  CARD  FOR  STATE 
1-2 
3 

4-5 

6-7 

8 

9-20 

21-80 


Format (EBCDIC) 
Data  Type (Binary) 

12 

IX 

A2 

A2 

IX 

3A4 

10(1X, 15) 


Data  Description 


STATE  CODE 
TILLER 

STATE  ABBREVIATION 
CENSUS  REGION 
FILLER 
STATE  NAME 

FIPS  CODE  LIST  (MAXIMUM  OF  10 
CODES  PER  CARD) 


CONTINUATION  CARDS 
1-2 
3-20 
21-80 


12 

18X 

10(1X,I5) 


STATE  CODE 
FILLER 

FIPS  CODES  (MAXIMUM  OF  10 
CODES  PER  CARD) 
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Program  name:  ST  AT.  SKKV.MA 


Purpose :  Tin.  purpose  of  this;  prop, ram  is  to  list  for 
<1  ist  r  i  hill  ioti  of  military  availabio  males  or  lomales 
e  lass  i  f  ieat  ion ,  and  ape  for  each  county  within  each 


I  Program  ID:  l’(. 


the  Army  the 
by  race,  avajlabili 
recruiting  region. 


Author :  Agnes  Purcell 

Conputer/OS:  IBM  360-370/HASP _ j  Language:  FORTRAN  G 

Estimated  Requirements: 

Core:  120K  Tape  Drives:  1 

CPU  Time:  6  MIN  Disk  Drives:  1 


Print  Lines:  15000 


Subroutine  name/entrv/entry. 


Internal  (SOURCF./'OSJECT) 

COtlP  (Sf.U'CK) 

FSTPAG/NUPAG/CONTPG/LSTPAG/SUMPAC  (SOURCE) 
INTCT'i  /  CTYN  AM  /  PRTCTY  (SOURCE) 

INTNAM/RDNAM  (SOURCE) 

RDREG  (SOURCE) 

Input  Files: 

FT05F001  INPUT  DATA  CARDS 
FT09F001  COUNTY. INFO. FILE 
FT1 0F001  MALE . ARMY . COUNTY . POP . YR8 6.TRY1 

FEMALE . ARMY . COUNTY . POP . YR8  6 . TRY I 
FT11FU01  RES. ARMY. CTY 


External 

FREAD  MVECR 

ASTSI  BNSCHI 

LISTI 
LEAVE 


Output  Files: 


FT21F001  COt’NTY  NAME  RETRIEVAL  DIAGNOSTICS 

FT31F001  MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  ACES  17-21  REPORT 
FT32F001  MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  ACES  17-21  REPORT 
FT33F001  MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  AGES  17-21  REPORT 
FT34F001  MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  AGES  17-21  REPORT 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 

FILE:  FT05F001  LRECL:  80 

10  TYPE:  INPUT  BLKSIZE:  80 

FILE  TYPE:  BCD  RECFM:  FB 

DSN: 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


CARD  1 

1-2 

12 

SEX(1=MALE,  2-FEMALE) 

CARD  2 

1-12 

3A4 

SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 

AIR  FORCE 

CARD  3 

1-8 

2A4 

REGION/AREA/DISTRICT/GROUP 

CARD  4 

1-4 

A4 

DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 

1-40  10A4  '  TITLE 
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FILE  DOCUMENTATION 


PROGRAM:  P6-3 

STAT. SERV.MA 

FILE:  FT09F001 

LRECL:  140 

10  TYPE:  INPUT 

BLKSI2E:  7000 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type(Binary)  Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

1 10 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

'  FILLER 

123-140 

18A1 

COUNTY  NAME 

FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 

FILE:  FT10F001  LRECL:  76 

10  TYPE:  INPUT  BLKSIZE:  7600 

FILE  TYPE:  BINARY  recfM:  FB 

jjSN:  MALE. ARMY.  COUNTY. POP. YR8 6. TRY1 
* .  FEMALE. ARMY. COUNTY. POP. YR8 6. TRY1 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 


INTEGER 


INTEGER 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 


41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

II 

III 

IV 

V 

VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 


f 
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AD-A075  3 •» 7  GENERAL  RESEARCH  CORP  MCLEAN  VA  F/«  15/5 

THE  QUALIFIED  MILITARY  AVAILABLE  PROJECTION  SYSTEM.  VOLUME  II.  — ETC(U) 
SEP  78  OF  MUCH#  A  CREMS*  8  P  SICA  MOA903-7S-C-0»0* 

UNCLASSIFIED  8ftC-CR-tt*-VOL-t  NL 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT 

.  SERV.MA 

FILE:  FT11F001 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE: 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES. ARMY. CTY 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD  FOR  DRC 

1-2 

12 

DRC  SEQUENCE  NO. 

3-5 

A3 

DRC  CODE 

6-7 

A2 

REGION  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DRC  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  DRC 

1-2 

12 

DRC  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 
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i 


Program  name:  STAT.SKKV.MA 


I  Program  ID:  i’o-3 


Purpose :  Tin-  purpose  of  this  prop,  ran  is  to  list  fot  the  Navv  the 
<i  ir.tr  ihut  ion  of  military  available  males  or  females  by  race,  availability 
classification,  and  age  tor  each  county  within  each  recruiting  region. 


Estimated  Requirements: 
Core:  120K 
CPU  Time:  6  MIN 
Print  Lines:  15000 


Tape  Drives:  1 
Disk  Drives:  l 

Subroutine  name/entry /entry. . 


Internal  (SOURCE/OBJECT) 

COMP  tSOURCE) 

FSTPAG/NUPAG/CONTPG/LSTPAG/SUMPAC (SOURCE) 
INTCTY / CTYNA1 1 / PRTCTY  (SOURCE) 

INTNAM/RDNAM (SOURCE) 

RDREG  (SOURCE)  _ _ _ 

Input  riles: 


External 


MVECR 

BNSCHI 


FT05F001  INPUT  DATA  CARDS 

FT09F001  COUNTY. INFO. FILE 

FT10F001  MALE . NAVY . COUNTY . POP . YR8  6 .  TRY1 

FEMALE . NAVY . COUNT Y . POP . YR86 . TRY 1 
FT11F001  RES. NAVY. CTY 


Output  Files: 


FT21F001  COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 

FT31F001  MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  AGES  17-21  REPORT 
FT32F001  MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  AGES  17-21  REPORT 
FT33F001  MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  AGES  17-21  REPORT 
FT34F001  MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  AGES  17-21  REPORT 
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FILE  DOCUMENTATION 


i 

PROGRAM:  P6-3  STAT.SERV.MA 

FILE:  FT05F001  LRECL:  80 

10  TYPE:  INPUT  BLKSIZE:  80 

FILE  TYPE:  BCD  RECFM:  FB 

DSN: 

Format (EBCDIC) 

Column  Data  Type(Binary)  Data  Description 


CARD  1 


1-2 

12 

SEX(1=MALE,  2=FEMALE) 

CARD  2 

1-12 

3A4 

SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 

AIR  FORCE 

CARD  3 

1-8 

2A4 

REGION /AREA/ DISTRICT / GROUP 

CARD  4 

1-4 

A4 

DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 

1-40 

10A4 

TITLE 
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i 


FILE  documentation 


PROGRAM:  P6-3 

STAT. SERV.MA 

FILE:  FT09F00I 

LRECL:  140 

10  TYPE:  INPUT 

BLKSIZE:  7000 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary)  Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE*  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

.  19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

'  FILLER 

123-140 

18A1 

COUNTY  NAME 

FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 
FILE:  FT10F001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 

DSH .  MALE .  NAVY .  COUNTY .  POP .  YR8  6 .  TRY1 
FEMALE . NAVY . COUNTY . POP . YR86 . TRY1 


LRECL: 

BLKSIZE: 

RECFM: 


Column 


Format (EBCDIC) 
Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

1.9-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 
'  * 


* 

’  INTEGER 

REAL 

* 


REAL 


REGION  CODE 

COUNTY  CODE 
« 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

II 

III 

IV 

V 

VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 
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FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 

FILE:  FTllFOOl 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE 

:  7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES. NAVY. CTY 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD  FOR  NRD 

1-2 

12 

NRD  SEQUENCE  NO. 

3-5 

A3 

NRD  CODE 

6-7 

A2 

AREA  CODE 

8 

IX 

FILLER 

9-20 

3A4 

NRD  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  NRD 

1-2 

12 

NRD  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

2-191 

i 


Program  name :  ST AT . SKRV . MA 


Program  ID:  P6- 


Hl'LT- •  The  purpose  of  this  program  is  lo  list  for  the  Marinos  the 
distribution  of  military  available  males  or  females  by  rare,  availahilil 
classi  t  icat  ion  aiul  age  lor  eaeli  county  within  each  recruiting  region. 


_ 

Author:  Agnes  Purcell 

Computer/OS:  IBM  360-370/HASP 

Language:  FORTRAN  G 

Estimated  Requirements : 

Core:  120K  Tape  Drives:  1 
CPU  Time:  6  MIN  Disk  Drives:  l 
Print  Lines:  15000 


Subroutine  name/ entry/ entry,  , 

Internal  (SOURCE/OBJECT)  External 

MVECR 
BNSCHI 


Input  Files: 


COMP  (SOURCE)  FREAD 
FSTPAG /NUP AG/ CONTPG/ LSTP AG / SUMPAG  (SOURCE)  ASTSI 
INTCTY/CTYNAM/PRTCTY  (SOURCE)  LISTI 
INTNAM/RDNAM  (SOURCE)  LEAVE 
RDREG  (SOURCE) 


FT05F001 

FT09F001 

FT10F001 

FT11F001 


INPUT  DATA  CARDS 

COUNTY. INFO. FILE 

MALE. MARI . COUNTY . POP . YR86. TRY1 

FEMALE . MARI . COUNTY . POP . YR8 6.TRY1 

RES. MARI. CTY 


Outout  Files: 


FT21F001  COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 

FT31F001  MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  ACES  17-21  REPORT 
FT32F001  MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  AGES  17-21  REPORT 
FT33F001  MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  AGES  17-21  REPORT 
FT34F001  MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  AGES  17-21  REPORT 


2-192 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 
FILE:  FT05F001 

10  TYPE:  INPUT 
FILE  TYPE:  BCD 
DSN: 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 

CARD  1 

1-2  12  SEX(1=MALE,  2= FEMALE) 

•  • 

CARD  2 

1-12  3A4  SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 
AIR  FORCE 


2A4  REGION / AREA/DISTRICT / GROUP 


A4  DISTRICT  DESIGNATION 

ST 
DRC 
NRD 

RS 
DET 

CARD  5 

1-40  10A4  '  TITLE 


CARD  3 

1-8 

CARD  4 

1-4 


LRECL:  80 
BLKSIZE:  80 
RECFM:  FB 


2-193 


FILE  documentation 


PROGRAM:  P6-3 

STAT. SERV.MA 

FILE:  FT09F001 

LRECL: 

140 

10  TYPE:  INPUT 

BLKSIZE: 

7000 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE*  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

FILLER 

123-140 

18A1 

COUNTY  NAME 

2-194 


FILE  DOCUMENTATION 


PROGRAM;  P6-3  STAT. SERV.MA 

FILE:  FT10F001  LRECL:  76 

10  TYPE:  INPUT  BLKSIZE:  7600 

FILE  TYPE:  BINARY  RECFM:  FB 

USjj .  MALE .  MARI .  COUNTY .  POP .  YR8  6 .  TRY1 
FEMALE . MARI . COUNTY . POP . YR86 . TRY1 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 
•  * 


* 

INTEGER 

REAL 

* 


* 


REAL 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

'  INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

II 

III 

IV 

V 

VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 


2-195 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT 

.SERV.MA 

FILE:  FT11F001 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE: 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES. MARI. CTY 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD  FOR  RS 

1-2 

12 

RS  SEQUENCE  NO. 

3-5 

A3 

RS  CODE 

6-7 

A2 

DISTRICT  CODE 

8 

IX 

FILLER 

9-20 

3A4 

RS  NAME 

21-80 

10(1X, 15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  RS 

1-2 

12 

RS  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

~r 


Program  nano:  SI' AT .  SI'.KV .  MA 


Program  ID:  PC- 3 


Author:  Aenes  Purcell 

Computer/OS:  IBM  360-370/HASP 

i 

Language:  FORTRAN  G 

1 

Estimated  Recuirements : 

Core:  120K 

Tape  Drives:  I 

CPU  Time:  6  MIN 

Disk  Drives:  1 

Print  Lines:  15000 

Subroutine 

name/entry/entry. .  . 

Internal  (SOURCE/OSJECT) 

External 

Purpose* : 

Tin*  purpose  of  t  h  i program  is  Lo  list  for  tin*  Air  Force  tlio  distri¬ 
bution  of  military  available  males  or  females  by  rare,  availability  classi¬ 
fication  and  aye  tor  each  county  within  each  recruiting  rep, ton. 


COMP  (SOURCE) 

FSTPAG/NUPAG/CONTPG/LSTPAG/SUMPAG  (SOURCE) 
INTCTY/CTYNAM/PRTCTY  (SOURCE) 

INTNAM/RDNAM  (SOURCE) 

RDREG 


FREAD 

ASTSI 

LISTI 

LEAVE 


MVECR 

BNSCHI 


Input  Flies: 

FT05F001 
FT09F001 
FT10F001 

FT11F001 


INPUT  DATA  CARDS 

COUNTY. INFO. FILE 

MALE .  AI RF .  COUNTY .  POP .  YR8  6 .  TRY  1 

FEMALE. AIRF . COUNTY . POP . YR86 . TRY1 

RES.AIRF.CTY 


Output  Flies: 


FT21F001 

FT31F001 

FT32F001 

FT33F001 

FT34F001 


COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 

MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  AGES  17-21  REPORT 
MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  ACES  17-21  REPORT 
MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  AGES  17-21  REPORT 
MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  AGES  17-21  REPORT 


2-197 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 
FILE:  FT05F001 

10  TYPE:  INPUT 
FILE  TYPE:  BCD 
DSN: 


Data  Description 


SEX(1=MALE,  2=FEMALE) 


SERVICE 

ALL  SERVICES 
ARMY 
NAVY 

MARINE  CORPS 
AIR  FORCE 

CARD  3 

1-8  2A4  REGION/AREA/DISTRICT/GROUP 

CARD  4 

1-4  A4  DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 


Format (EBCDIC) 

Column  Data  Type (Binary) 

CARD  1 

1-2  12 

CARD  2 

1-12  3A4 


LRECL :  80 

BLKSIZE:  80 
RECFM:  FB 


1-40 


10A4 


TITLE 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT. SERV.MA 

FILE:  FT09F001 

10  TYPE:  INPUT 

FILE  TYPE:  EBCDIC 
DSN:  COUNTY. INFO. FILE 


LRECL:  140 

BLKSIZE:  7000 
RECFM:  FB 


Format (EBCDIC) 


Column 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4  ' 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

'  FILLER 

123-140 

18A1 

COUNTY  NAME 

2-199 


I 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT.SERV.MA 


FILE:  FT10F001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 


LRECL: 

BLKSIZE: 

RECFM: 


DSN:  MALE. AIRF. COUNTY. POP. YR86.TRY1 
FEMALE . AIRF . COUNTY . POP . YR8  6 . TRY 1 
Format (EBCDIC) 

Column  Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 


INTEGER 


INTEGER 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 


41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

II 

III 

IV 

V 

VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 


4 


2-200 


FILE  DOCUMENTATION 


PROGRAM:  P6-3  STAT. 

SERV.MA 

FILE:  FT11F001 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE: 

7200 

FILE  TYPE:  EBCDIC 

DSN:  RES.AIRF.CTY 

RECFM: 

FB 

Columa 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1st  RECORD  FOR  DET 

1-2 

12 

DET  SEQUENCE  NO. 

3-5 

A3 

DET  CODE 

6-7 

A2 

GROUP  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DRC  NAME 

21-80 

10(1X, 15) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS  FOR  DET 


1-2 

12 

DET  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

2-201 


Program  name: 


STAT.SEKV.QMA 


Program 


ID :  P0-* 


Purpose: 

The  purpose  of  this  program  is  to  list  for  all  services  the 
distribution  of  qualified  military  available  males  or  females  by 
race,  availability  classification,  and  education  level  for  each 
county  group  within  each  state. 


Author:  Agnes  Purcell 


Cooputcr/OS:  IBM  360-370/HASP 

Language:  fortran  r. 

Estimated  Requirements: 


Core:  120K 

CPU  Time:  6  MIN 

Print  Lines:  15000 


Tape  Drives:  l 
Disk  Drives:  i 


Subroutine  name/entry /entry. .  . 

Internal  (S0URCE/C3JECT)  External 

COMP i SOURCE) 

FSTPAG/NUPAG/CONTPG  /  LSTPAG/  SUMP  AG  (SOURCE)  FREAD  MVECR 

INTCTY / CTYNAM/PRTCTY (SOURCE)  ASTSI  BNSCHI 

INTNAM/RDNAM  (SOURCE)  LISTI 

RDREG  (SOURCE) _ _ _ LEAVE _ 

Input  Files: 


FT05F001 

FT09F001 

FT10F001 

FT11F001 


INPUT  DATA  CARDS 

COUNTY. INFO. FILE 

MALE . NAVY . COUNTY . POP . YR8  6 . TRY1 

FEMALE . NAVY . COUNTY . POP . YR86 . TRY1 

RES. NAVY. CTY 


Output  Files: 


FT21F001 

FT31F001 

FT32F001 

FT33F001 

FT34F001 


COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 


MILITARY  AVAILABLE, 
MILITARY  AVAILABLE, 
MILITARY  AVAILABLE, 
MILITARY  AVAILABLE, 


WHITE  RACE,  BY  SEX, 
BLACK  RACE,  BY  SEX, 
OTHER  RACE,  BY  SEX, 
ALL  RACES,  BY  SEX, 


BY  EDUCATION 
BY  EDUCATION 
BY  EDUCATION 
BY  EDUCATION 


2-203 


FILE  DOCUMENTATION 


PROGRAM:  PG— 4  STAT.SERV.  QMA 

FILE;  '  FT05Fv»01 

10  TYPE:  INPUT 

FILE  TYPE:  BCD 

DSN: 


LRECL :  DO 
BLKSIZE:  80 


RECFM:  I’B 


Column 
CARD  1 

1-2 

CARD  2 

1-12 


CARD  3 

1-8 

CARD  4 

1-4 


CARD  5 


Format (EBCDIC) 

Data  Type (Binary)  Data  Description 


12 


SEX(1=MALE,  2=FEMALE) 


3A4 


SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 
AIR  FORCE 


2A4 


REGION/AREA/DISTRICT/GROUP 


A4 


DISTRICT  DESIGNATION 
ST 
DRC 
NRD 
RS 
DET 


1-40 


10A4 


TITLE 


FILE  DOCUMENTATION 


PROCRAM:  P6-  4 

STAT.SERV.QMA 

FILE:  FT09F001 

LRECL:  140 

10  TYPE:  INPUT 

BLKSIZE:  7000 

FILE  TYPE:  EBCDIC 

RECFM:  FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary)  Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE*  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4  ‘ 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRAD  KG  AREA  (MTA)  CODE 

76-85 

no 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

’  FILLER 

123-140 

18A1 

COUNTY  NAME 

2-205 


FILE  DOCUMENTATION 


PROGRAM:  P6-4 
FILE:  FTlOFOOl 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 
DSN: 


STAT.SERV.  QMA 


LRF.CL : 

BLKSIZE: 

RECFM: 


76 

7600 

FB 


MALE . ST . COUNTY . POP . YR36 . TRY1 
FEMALE . ST . COUNTY . POP . YR86 . TRY1 
Format (EBCDIC) 


Column 


Data  Type (Binary) 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 

* 


■Y 

INTEGER 

REAL 

* 


REAL 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

f  *  ii 

III 

IV 

V 

ir  |  VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 


2-206 


FILE  DOCUMENTATION 


PROGRAM:  P6-  4  STAT . SERV . QMA 

FILE:  miFOOI 
10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  RES  .STATE . CTY 


LRECL:  80 
BLKSIZE :  7200 
RECFM:  FB 


Column 

1st  CARD  FOR  STATE 
1-2 
3 

4-5 

6-7 

8 

9-20 

21-80 


Format (EBCDIC) 
Data  Type (Binary) 

T2 

IX 

A2 

A2 

IX 

3A4 

10(1X, 15) 


Data  Description 


STATE  CODE 
FILLER 

STATE  ABBREVIATION 
CENSUS  REGION 
FILLER 
STATE  NAME 

FIPS  CODE  LIST  (MAXIMUM  OF  10 
CODES  PER  CARD) 


CONTINUATION  CARDS 
1-2 
3-20 
21-80 


12 

18X 

10(1X,I5) 


STATE  CODE 
FILLER 

FIPS  CODES  (MAXIMUM  OF  10 
CODES  PER  CARD) 


2-207 


I  . 

|  Program  name: 


STAT.SKRV  .QMA 


Program 


ID :  1*6-  U 


~  { 


I 


Purpose: 

The  purpose  of  this  program  is  to  list  for  Army 
distribution  of  qualified  military  available  males  or  femaies  by 
race,  availability  classification,  and  education  level  for  each 
county  group  within  each  state. 


Author:  Agnes  Purcell 


Computer/OS:  IBM  360-370/HASP 


Language :  FORTRAN  G 


Estimated  Requirements: 


Core:  120K 

CPU  Time:  6  MIN 

Print  Lines:  15000 


Tape  Drives:  1 
Disk  Drives:  1 


Subroutine  name/entry/entry. . . 

Internal  (SOURCE/OBJECT)  External 

COMP  (SOURCE) 

FSTPAG/NUPAC/ CONTPG/LSTPAG/SUMPAO  (SOURCE)  FREAD  MVECR 

INTCTY /CTYNAM/ PRTCTY  (SOURCE)  ASTSI  BNSCHI 

INTNAM/RDNAM  (SOURCE;  LISTI 

RDREG  (SOURCE)  LEAVE 


Input  Files: 

FT05F001  INPUT  DATA  CARDS 
FT09F001  COUNTY. INFO. FILE 
FT10F001  MALE . ARMY . COUNTY . POP . YR8  6 . TRY1 

FEMALE . ARMY .COUNTY . POP . YR86. TRY1 
FT11F001  RES. ARMY. CTY 


Output  Files: 


FT21F001 

FT31F001 

FT32F001 

FT33F001 

FT34F001 


COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 

MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  BY  EDUCATION 
MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  BY  EDUCATION 
MILITARY  AVAILABLE,  OTHER  RACE,  BY  SF-X,  BY  EDUCATION 
MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  BY  EDUCATION 


2-208 


FILE  DOCUMENTATION 


I 

I 

I 

! 


PROGRAM:  P6-4  STAT  . SERV  .QMA 

FILE:  FT05F001 

10  TYPE:  INPUT 

FILE  TYPE:  BCD 

DSN: 


LRECL :  80 

BLKSIZE :  80 
RECFM:  FB 


Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 


CARD  1 

1-2 

12 

SEX(1=MALE,  2=FEMALE) 

CARD  2 

1-12 

3A4 

SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 

AIR  FORCE 

CARD  3 

1-8 

2A4 

REGION/AREA/DISTRICT/GROUP 

CARD  4 

1-4 

A4 

DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 

1-40  10A4  ‘  TITLE 


1 


i 


2-209 


FILE  DOCUMENTATION 


PROGRAM:  P6-4  STAT. SERV. QMA 

FILE:  FT09F00L 

10  TYPE:  INPUT 

FILE  TYPE:  EBCDIC 
DSN:  COUNTY. INFO. FILE 


LRECL:  140 

BLKSIZE:  7000 
RECFM:  FB 


Format (EBCDIC) 


I 

I 


Column 

Data  Type (Binary) 

1-2 

2X 

3-4 

12 

5-21 

17A1 

22-23 

A2 

24-27 

4X 

28-30 

13 

32A1 

31-62 

63-66 

14 

67-70 

A4  * 

71-72 

2X 

73-75 

13 

76-85 

110 

86-87 

2X 

88-94 

17 

95-103 

18 

104-112 

19 

113-120 

F8.2 

121-122 

2X 

123-140 

18A1 

Data  Description 

FILLER 

FIPS  STATE  CODE 
STATE  NAME 
STATE  ABBREVIATION 
FILLER 

COUNTY  FIPS  CODE 

BASIC  TRADING  AREA  (BTA)  NAME 

BTA  CODE 

TRADING  AREA  (TA)  ABBR. 

FILLER 

MAJOR  TRADING  AREA  (MTA)  CODE 
POPULATION  COUNTS  (TOTAL) 
FILLER 

POPULATION  COUNTS  (BLACK) 

LAND  AREA 

QMA  POPULATION 

POPULATION  DENSITY 

FILLER 

COUNTY  NAME 


2-210 


FILE  DOCUMENTATION 


PROGRAM:  P6-  4  STAT . SERV . QMA 

FILE:  Fill  FOOL 

10  TYPE:  INPUT 
FILE  TYPE:  EBCDIC 
DSN:  RES.  ARMY.  CTY 


LRECL :  80 

BLXSIZE:  7200 
RECFM:  FB 


Column 

FIRST  RECORD  FOR  DRC 
1-2 
3-5 
6-7 
8 

9-20 

21-80 


Format (EBCDIC) 
Data  Type (Binary) 

12 

A3 

A2 

IX 

3A4 

10(1X, 15) 


Data  Description 

DRC  SEQUENCE  NO. 

DRC  CODE 
REGION  CODE 
FILLER 
DRC  NAME 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 


CONTINUATION  RECORDS  FOR  DRC 


1-2 

12 

DRC  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

2-211 


FILE  DOCUMENTATION 


I 

I 

I 

I 

f 

1 


PROGRAM:  P6-4  STAT.SF.RV.  QMA 


FILE:  FT10F001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 


LRECL: 

BLKSIZE: 

RECFM: 


DSN:  MALE. ARMY. COUNTY. POP. YR86.TRY1 
FEMALE . ARMY . COUNTY . POP . YR8 6 . TRY1 


Format (EBCDIC) 

Column  Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

i.9-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 


INTEGER 


INTEGER 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 


41-44 

45-48 

49-52. 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


ADJUSTED  WEIGHT 


COUNT  MEN.  CAT. 


COUNT  MEN.  CAT. 


I 

II 

III 

IV 

V 

VI 

VII 


COUNT  PHYS. UNFIT 


2-212 


FILE  DOCUMENTATION 


PROCRAM:  l>6-4  STAT.SERV.  QMA 

FILE:  FT05F001 

10  TYPE:  INPUT 

FILE  TYPE:  BCD 

DSN: 


LRECL:  80 
I5LKSIZE:  80 
RECFM:  FB 


Format (EBCDIC) 

Data  Type (Binary)  Data  Description 


CARD  1 

1-2 

12 

SEX(1=MALE,  2=FEMALE) 

CARD  2 

1-12 

3A4 

\ 

SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 

AIR  FORCE 

CARD  3 

• 

1-8 

2A4 

REGION/AREA/DISTRICT/GROUP 

CARD  4 

1-4 

A4 

DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 

1-40 

10A4 

TITLE 

2-214 


FILE  DOCUMENTATION 


PROGRAM:  P6-4 

FILE:  FT09F001 

10  TYPE:  INPUT 

FILE  TYPE:  EBCDIC 
DSN:  COUNTY. INFO.  FILE 


STAT.SERV.QMA 


LRECL : 

BLKSIZE: 

RECFM: 


140 

7000 

FB 


Format (EBCDIC) 


Column 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4  * 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (OTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

.  19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

‘  FILLER 

123-140  ' 

18A1 

COUNTY  NAME 

2-215 


FILE  DOCUMENTATION 

PROCRAM:  P6- 

-4  STAT.SERV.  QMA 

FILE:  FTllFOOl 

LRECL: 

80 

10  TYPE:  INPUT 

BLKSIZE : 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES. NAVY. CTY 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD 

FOR  NRD 

1-2 

12 

NRD  SEQUENCE  NO. 

•3-5 

A3 

NRD  CODE 

6-7 

A2 

AREA  CODE 

8 

IX 

FILLER 

9-20 

3A4 

NRD  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 
(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION 

RECORDS 

FOR  NRD 

1-2 

12 

NRD  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 

I 

I 
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FILE  DOCUMENTATION 


PROGRAM:  P6-4  STAT.SERV.QMA 
FILE:  FT10F001 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 

DSN:  Mi\LE . NAVY .  COUNTY. POP. YR86.TRY1 
FEMALE .  NAVY .  COUNTY .  POP .  YR86 .  l'RYl 


LRECL: 

BLKSIZE: 

RECFM: 


Format (EBCDIC) 

Columa  Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

1.9-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 
•  * 


* 

'  INTEGER 

REAL 

* 


REAL 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

A  A  A  II 

III 

IV 

V 

VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 
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Program  name:  ST  AT .  SI-IRV .  QUA 


Program  II):  |’G-4 


Purpose : 

The  purpose  of  this  program  Is  to  list  for  Navy 
distribution  of  qualified  military  available  males  or  females  by 
race,  availability  classification,  and  education  level  for  each 
county  group  within  each  state. 


Author:  Agnes  Purcell 


Computer/OS:  IBM  360-370/HASP 


Language:  FORTRAN  G 


Estimated  Requirements : 


Core:  120K 


Tape  Drives:  l 


CPU  Time:  6  MIN 


Disk  Drives: 


Print  Lines: 


Subroutine  naae/entry/entry.  , . 


Internal  (S0URCE/03JECT) 

COMP i SOURCE) 

FSTP AG / NU P AG / CONTPG / LSTP AG/ SUMP AG  (SOURCE) 
INTCTY/CTYNAM/PRTCTY  (SOURCE) 

XNTNAM/RDNAM  (SOURCE) 

RDREG  (SOURCE)  _ 

Input  riles: 


External 


MVECR 

BNSCHI 


FT05F001  INPUT  DATA  CARDS 

FT09F001  COUNTY . INFO . F ILE 

FT10F001  MALE. NAVY. COUNTY. POP. YR8 6. TRY1 

FEMALE . NAVY . COUNTY . POP . YR86 . TRY1 
FT11F001  RES. NAVY. CTY 


Output  Files: 

FT21F001  COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 

FT31F001  MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  BY  EDUCATION 

FT32F001  MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  BY  EDUCATION 

FT33F001  MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  BY  EDUCATION 

FT34F001  MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  BY  EDUCATION 


2-218 


FILE  DOCUMENTATION 


PROGRAM:  P6-4  STAT, 

.SERV.QMA 

FILE:  FT05FO01 

10  TYPE:  INPUT 

FILE  TYPE:  LCD 

DSN: 

LRECL :  80 

BLKSIZE:  80 

RE C I’M:  I'll 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

CARD  1 

1-2 

12 

SEX(1=MALE,  2=FEMALE) 

CARD  2 

1-12 

3A4 

SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 

AIR  FORCE 

CARD  3 

•* 

1-8 

2A4 

REGION/AREA/DISTRICT/GROUP 

CARD  4 

1-4 

A4 

DISTRICT  DESIGNATION 

ST 

DRC 

NRD 

RS 

DET 

CARD  5 

1-40 


10A4 


TITLE 


FILE  DOCUMENTATION 


PROGRAM:  P6-4 

STAT.SERV.  QMA 

FILE:  FT09F001 

LRECL : 

140 

10  TYPE:  INPUT 

BLKSIZE: 

7000 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

110 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

* 

FILLER 

123-140 

18A1 

COUNTY  NAME 

FILE  DOCUMENTATION 


PROGRAM;  P6-4  STAT.SERV.  QMA 


FILE:  FTlOrOOl 

10  TYPE:  INPUT 


LRECL: 

BLKSIZE: 


FILE  TYPE:  BINARY 

DSN:  MALE. MARI.  COUNTY. POP. YR8 6. TRY1 
FEMALE . MARI . COUNTY . POP . YR86 . TRY1 


RECFM: 


Format (EBCDIC) 

Column  Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

1.9-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 


INTEGER 


INTEGER 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 

ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 


COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 


2-221 


FILE  DOCUMENTATION 


PROGRAM:  P6-4  STAT 

.  SERV.QMA 

FILE:  FT11F001 

LRECL : 

80 

10  TYPE:  INPUT 

BLKSIZE: 

7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES. MARI. CTY 

Format (EBCDIC) 

Column 

Data  Type (Binary) 

Data  Description 

FIRST  RECORD  FOR  RS 

1-2 

12 

1 

RS  SEQUENCE  NO. 

3-5 

A3 

RS  CODE 

6-7 

A2 

DISTRICT  CODE 

8 

IX 

FILLER 

9-20 

3A4 

RS  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 

(MAXIMUM  OF  10  PER  CARD) 


CONTINUATION  RECORDS  FOR  RS 


1-2 

12 

RS  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 
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Program  name:  STAT.Sr.KV.  QMA 


Proaram  ID: 


P6-4 


Purpose: 

The  purpose  of  this  program  is  to  list  for  Air  Force 
distribution  of  qualified  military  available  males  or  females  by 
race,  availability  classification,  and  education  level  for  each 
county  group  within  each  state. 


Author:  Aznes  Purcell 

Computer /OS:  IBM  360-370/HASP 

Language: 

FORTRAN  C 

Estimated  Requirements: 

Core:  120K 

Tape  Drives:  1 

CPU  Time:  6  MIN 

Disk 

Drives:  1 

Print  Lines:  15000 

Subroutine  name/ entry/entry . .  . 

Internal  (SOURCE/OBJECT) 

External 

COMP  (SOURCE) 

FREAD 

MVECR 

FSTPAG/NUPAG/CONTPG/LSTPAG/SUMPAG 

(SOURCE) 

ASTSI 

BNSCHI 

INTCTY/CTYNAM/PRTCTY  (SOURCE) 

LISTI 

INTNAM/RDNAM  (SOURCE) 

LEAVE 

RDREG 

_ _ _ _ _ 

_  . .  _ 

.  _  _ _  .  __  _ 

Input  Files: 

FT05F001 
FT09F001 
FT10F001 

FT11F001 


INPUT  DATA  CARDS 

COUNTY. INFO. FILE 

MALE . AIRF.C OUNTY . POP . YR8  6 . TRY1 

FEMALE . AIRF. COUNTY . POP . YR86 . TRY1 

RES.AIRF.CTY 


Output  Files: 


FT21F001 

FT31F001 

FT32F001 

FT33F001 

FT34F001 


COUNTY  NAME  RETRIEVAL  DIAGNOSTICS 

MILITARY  AVAILABLE,  WHITE  RACE,  BY  SEX,  BY  EDUCATION 
MILITARY  AVAILABLE,  BLACK  RACE,  BY  SEX,  BY  EDUCATION 
MILITARY  AVAILABLE,  OTHER  RACE,  BY  SEX,  BY  EDUCATION 
MILITARY  AVAILABLE,  ALL  RACES,  BY  SEX,  BY  EDUCATION 


2-223 


FILE  DOCUMENTATION 


PROGRAM:  1*6-4  STAT.SERV.  QMA 
FILE:  FT05F001 

10  TYPE:  INPUT 
FILE  TYPE:  BCD 
DSN: 

Format (EBCDIC) 

Column  Data  Type (Binary)  Data  Description 

CARD  1 

1-2  12  SEX (1-MALE,  2=FEMALE) 

CARD  2 

1-12  3A4  SERVICE 

ALL  SERVICES 

ARMY 

NAVY 

MARINE  CORPS 
AIR  FORCE 


LRECL:  80 
BLKSI2E:  80 
RECFM:  FB 


CARD  3 

1-8  2A4  REGION/AREA/DISTRICT/GROUP 


A4  DISTRICT  DESIGNATION 

ST 
DRC 
NRD 
RS 
DET 

CARD  5 


CARD  4 

1-4 


1-40 


10A4 


TITLE 


FILE  DOCUMENTATION 


PROCRAM:  P6-  4 

STAT. SERV.QMA 

FILE:  FT09F001 

LRECL: 

140 

10  TYPE:  INPUT 

BLKSIZE: 

7000 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  COUNTY. INFO. 

FILE 

Column 

Format (EBCDIC) 

Data  Type (Binary) 

Data  Description 

1-2 

2X 

FILLER 

3-4 

12 

FIPS  STATE  CODE 

5-21 

17A1 

STATE  NAME 

22-23 

A2 

STATE  ABBREVIATION 

24-27 

4X 

FILLER 

28-30 

13 

COUNTY  FIPS  CODE 

31-62 

32A1 

BASIC  TRADING  AREA  (BTA)  NAME 

63-66 

14 

BTA  CODE 

67-70 

A4  •' 

TRADING  AREA  (TA)  ABBR. 

71-72 

2X 

FILLER 

73-75 

13 

MAJOR  TRADING  AREA  (MTA)  CODE 

76-85 

no 

POPULATION  COUNTS  (TOTAL) 

86-87 

2X 

FILLER 

88-94 

17 

POPULATION  COUNTS  (BLACK) 

95-103 

18 

LAND  AREA 

104-112 

19 

QMA  POPULATION 

113-120 

F8.2 

POPULATION  DENSITY 

121-122 

2X 

FILLER 

123-140 

18A1 

COUNTY  NAME 

2-225 


FILE  DOCUMENTATION 


PROGRAM:  P6- 4  STAT.SKRV.QMA 


FILE:  FTlOFOOl 

10  TYPE:  INPUT 
FILE  TYPE:  BINARY 


LRECL: 

BLKSIZE: 

RECFM: 


DSN:  MALE. AIRF. COUNTY. POP. YR86.TRY1 
FEMALE . AIRF . COUNTY . POP . YR86 . TRY1 

Format (EBCDIC) 

Column  Data  Type (Binary) 


76 

7600 

FB 


Data  Description 


1-2 

3-6 

7-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23-24 

25-26 

27-28 

29-32 

33-36 

37-40 


INTEGER 


INTEGER 


REGION  CODE 

COUNTY  CODE 

SEX 

RACE 

AGE 

HIGHEST  GRADE  COMPLETED 
IN  SCHOOL  CODE 
INSTITUTIONALIZED  CODE 
IN  MILITARY  CODE 
VETERAN  CODE 
EMPLOYED  CODE 
SAMPLE 
FILLER 

INCOME  (YES/NO) 

INCOME  (AMOUNT) 

COUNT 


41-44 
45-48 
49-52. 
53-56 
57-60 
'  61-64 

65-68 
69-72 
73-76 


ADJUSTED  WEIGHT 
COUNT  MEN.  CAT.  I 

II 

III 

IV 

V 

VI 

COUNT  MEN.  CAT.  VII 
COUNT  PHYS. UNFIT 
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FILE  DOCUMENTATION 


PROGRAM:  P6-4  STAT 

'.SERV.QMA 

FILE:  FTllFOOl 

LRECL : 

80 

10  TYPE:  TNPUT 

BLKSIZE 

:  7200 

FILE  TYPE:  EBCDIC 

RECFM: 

FB 

DSN:  RES.AIRF.CTY 

Format (EBCDIC) 

Column 

Data  Type(Binary) 

Data  Description 

1st  RECORD  FOR  DET 

1-2 

12 

DET  SEQUENCE  NO. 

3-5 

A3 

DET  CODE 

6-7 

A2 

GROUP  CODE 

8 

IX 

FILLER 

9-20 

3A4 

DRC  NAME 

21-80 

10(1X,I5) 

LIST  OF  FIPS  CODES 

(MAXIMUM  OF  10  PER  CARD) 

CONTINUATION  RECORDS 

FOR  DET 

1-2 

12 

DET  SEQUENCE  NO. 

3-9 

7X 

FILLER 

10-14 

15 

COUNTY  FIPS 

15 

IX 

FILLER 

16-20 

15 

COUNTY  FIPS 

21-80 

SAME  AS  FIRST  CARD 
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□ 

A42 

Defense  Intelligenbe  Agency  (DS) 

i 
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2/12 

□ 

B1 

HEADQUARTERS.  DEPARTMENT  OP  THE  ARMY 

Deputy  Under  Secretary  of  the  Army  (OR) 

1 

□ 

62 

Assistant  Secretaryjof  the  Army  (FM) 

1 

□ 

63 

Assistant  Secretary \ of  the  Army  (l&L) 

1 

X 

84 

Assistant  Secretary  «of  the  Army  (MARA) 

1 

Li 

BS 

Assistant  Secretary 'of  the  Army  (R&D) 

1 

Li 

610 

Director  of  Army  St^ff 

4 

m 

B12 

Assistant  Chief  of  Sjoff  for  Intelligence 

2 

E 

614 

Deputy  Chief  of  Staff  for  Personnel 

1 

□ 

615 

Deputy  Chief  of  Stoft  for  Operations  and  Plans 

2 

G 

614 

Deputy  Chief  of  Stoft  for  Logistics 

1 

n 

817 

Deputy  Chief  of  Research,  Development,  and  Acquisition 

1 

L 

819 

Comptroller  of  the  Artny 

1 

_ ; 

621 

Chief  Engineers 

1 

r 

622 

Office  of  the  Surgeon '.General  (Ml) 

1 

823 

Directorate  of  Military,  Support 

1 

— 

624” 

The  Army  Library  (ASDIRS) 

1 

’Required  I  AW  AR  70*11  ond  AR  70-31.  (12  copies  for  Open  Literature  cleared  publications,  and  2  copies  for  Limited 
Distribution  publications.) 

*  ’Normally  required;  exclusion  mutt  be  justified  by  Sponsor  (AR  1*28). 


1 

1 
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1  January  1975 

1 

Address 

Number  of 

1 

code 

Agency 

copies 

US  ARMY  TRAINING  ANO  DOCTRINE  COMMANO 

□ 

Cl 

Hq.  TRADOC 

1 

SCHOOLS 

□ 

C2 

US  Army  Air  Defense 

1 

;  □ 

C3 

US  Army  Armor 

1 

L  □ 

C4 

US  Army  Field  Artillery 

□ 

C5 

US  Army  Ordnance 

] 

□ 

C6 

US  Army  Engineer 

□ 

C7 

US  Army  Infantry 

2 

□ 

C8 

US  Army  Intelligence 

□ 

C9 

US  Army  Command  and  General  Staff  College 

1 

□ 

CIO 

US  Army  Aviation 

1 

□ 

Cll 

US  Army  Missile  and  Munitions 

I 

□ 

C12 

US  Army  Quartermaster 

> 

i  □ 

C13 

US  Army  Institute  for  Military  Assistance 

2 

□ 

CM 

US  Army  Transportation 

1 

□ 

C15 

US  Army  Institute  of  Administration 

□ 

CM 

US  Army  Signal  (Ft  Monmouth) 

1 

□ 

C17 

US  Army  So  >theastern  Signal  (Ft  Gordon) 

1 

□ 

CIS 

USWAC 

1 

□ 

C19 

Defense  Information 

1 

□ 

C20 

US  Army  Military  Police 

1 

CENTERS 

□ 

C41 

US  Army  Combinod  Arms  Center 

1 

□ 

C42 

US  Army  Logistics  Center 

1 

□ 

i 

C43 

US  Army  Administration  Canter 

1 

miscellaneous  army  schools 

o 

01 

US  Army  War  Collego  (Library) 

1 

□ 

02 

US  Army  War  College  (SSlSG) 

□ 

03 

USMA,  West  Point 

1 

□ 

04 

US  Army  Academy  of  Health  Sciences 

US  ARMY  MATERIEL  COMMAND 

□ 

El 

Hq,  US  Army  Materiel  Command 

I  | 

i  D 

E2 

US  Army  Armament  Command 

1 

□ 

E3 

US  Army  Electronics  Command 

1 

□ 

E4 

US  Army  Missile  Command 

1 

□ 

E5 

US  Army  Aviation  Systems  Command 

1 

i  2 

E6 

US  Army  Troop  Support  Command 

1 

2 

E7 

US  Army  Tank- Automotive  Command 

1 

*•  □ 

E8 

US  Army  Test  and  Evaluation  Command 

1 

□ 

E20 

Deseret  Test  Center 

• 

i  D 

E21  **’ 

Defense  Logistic  Studies  Information  Exchange 

2 

2 

E22 

US  Army  Foreign  Science  and  Technology  Center 

1  □ 

E32 

Management  Information  Systems  Directorate 

□ 

E34 

US  Army  Materiel  Systems  Analysis  Agency 

1 

□ 

E33 

US  Army  Major  Item  Data  Agency 

□ 

E43 

US  Army  Armor  and  Engineer  Board 

1 

□ 

E46 

US  Army  Field  Artillery  Board 

□ 

E47 

US  Army  Aviation  Test  Board 

1 

□ 

E48 

US  Army  Infantry  Board 

□ 

ESS 

White  Sends  Missile  Range 

1 

US  ARMY  FORCES  COMMAND 

.  i 

FI 

Hq,  FORSCOM 

1 

l  Z 

F2 

First  US  Army 

1  z 

F3 

Fifth  US  Army 

1 

*  z 

F4 

Sixth  US  Army 

1 

_ 

F5 

Eighth  US  Army 

1 

•••R«quir.d  I  AW  AR  5-7. 


GRC  DISTRIBUTION  LIST  (continual) 


1  January  1975 


Address 

cod* 

Agency 

Number  of 

copies 

□ 

G1 

UNIFIED  COMMANDS 

Commander  m  Chief,  Alaska  (ClNCAL) 

1 

□ 

G2 

Commander  in  Chief,  Pacific  (CINCPAC) 

i 

□ 

G3 

Commander  in  Chief,  Europe  (CINCEUCOM) 

i 

□ 

G4 

Commander  in  Chief,  US  Reodiness  Command 

1 

□ 

G5 

Commander  in  Chief,  Atlantic  (CINCLANT) 

i 

□ 

G« 

Commander  in  Chief,  Continental  Air  Oefense  Command  (CINCONAO) 

i 

□ 

G7 

Commander  in  Chief,  US  Southern  Command  (USCINCSO) 

i 

□ 

HI 

US  ARMY  COMMANDS/ AGENCIES  (CONUS) 

US  Army  Ajr  Defense  Command 

1 

□ 

H2 

US  Army  Communications  Command 

i 

□ 

H3 

US  Army  Computer  Systems  Command 

1 

B 

H4 

US  Army  Recruiting  Command 

1 

□ 

H5 

US  Army  Safeguard  Command 

i 

□ 

H6 

US  Army  Health  Services  Command 

1 

□ 

H7 

US  Army  Intelligence  Command 

i 

□ 

H8 

US  Army  Combat  Developments  Experimentation  Command 

i 

□ 

H15 

US  Army  Security  Agency 

i 

□ 

H16 

US  Army  Logistics  Evaluation  Agency 

i 

□ 

H17 

US  Army  Concepts  Analysis  Agency 

i 

□ 

H18 

US  Army  Management  System  Support  Agency 

i 

□ 

H19 

US  Army  Operational  Test  and  Evaluation  Agency 

i 

□ 

H20 

US  Army  Missile  Intelligence  Agency 

i 

□ 

H21 

US  Army  Nuclear  Agency 

i 

□ 

H22 

US  Army  C-E  Engineering  and  Installation  Agency 

i 

□ 

H23 

US  Army  Communication  Systems  Agency 

i 

□ 

Jl 

MISCELLANEOUS  ARMY  (CONUS) 

US  Army  Intelligence  Threat  Analysis  Detachment 

t 

□ 

J2 

Engineer  Studies  Group 

i 

□ 

J3 

US  Army  Research  Institute 

i 

IS 

J4 

US  Army  Military  Personnel  Center 

i 

□ 

K1 

US  AIR  FORCE 

Hq,  US  Air  Fare,  (SAMI) 

□ 

K2 

Hq,  US  Air  Force  Systems  Command 

i 

□ 

K3 

Assistant  Chief  of  Staff  for  Intelligence 

i 

□ 

K4 

Foreign  Technology  Division  (AFSC) 

i 

30 

KS 

Air  University  Library 

i 

IS 

LI 

US  NAVY 

i 

□ 

L2 

Chief  of  Naval  Operations,  OP03EG-CNO 

i 

□ 

L3 

Naval  Intelligence  Command 

i 

□ 

L4 

Navel  Intelligence  Support  Center 

53 

LS 

Naval  War  Callaga 

i 

CD 

L6 

Naval  Postgraduate  School 

i 

□ 

Ml 

US  MARINE  CORPS 

Hq,  US  Marine  Corps,  G-2 

i 

□ 

M2 

Hq,  US  Marine  Corps,  G-3 

i 

□ 

M3 

Marine  Corps  Development  and  Education  Command 

i 

□ 

HI 

US  GOVERNMENT  AGENCIES 

Director,  Central  Intel ligency  Agency 

i 

L! 

N2 

Central  Intelligence  Agency  (Publications) 

i 

N3 

Central  Intelligence  Agency,  Director  for  SAT 

i 

GRC  DISTRIBUTION  LIST  (continual)  1  January  197S 


Address 

code 

Agency 

Number  of 

copies 

□ 

NS 

Director,  Office  of  Science  &  Technology,  Executive  Office  Bldg 

1 

□ 

N6 

Deportment  of  Stote,  Foreign  Affairs  Research  &  Doc  Center 

1 

DEFENSE  CONTRACTORS 

a 

01 

Center  for  Novol  Analyses 

1 

2 

02 

Human  Resources  Research  Organi  zation,  Inc. 

i 

□ 

03 

Institute  for  Defense  Analyses 

1 

a 

04 

RAND  Corporation 

i 

□ 

05 

American  Institute  for  Research 

i 

□ 

06 

Stanford  Research  Institute 

i 

Also: 

US  Air  Force  Human  Resources  Laboratory 
Navy  Recruiting  Command 


1 

1 


